fork(2) download
copy 
  1. program MCD;
  2. uses dos, crt;
  3. var 
  4. p, q, r, m: integer;
  5. begin
  6. clrscr;
  7. writeln('Ingresa el primer entero');
  8. readln(p);
  9. writeln('Ingresa el siguiente entero');
  10. readln(q);
  11. repeat
  12. r:= p mod q;
  13. 	if (r > 0) then
  14. 	m := q;
  15. 	else
  16. 		begin
  17. 		p:= q;
  18. 		q:= r;
  19. 		end
  20. until r == 0;
  21. readkey;
  22. end
  23.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(15,2) Fatal: Syntax error, "UNTIL" expected but "ELSE" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout
copy 
Standard output is empty
https://ideone.com/XXXAi
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!