fork download
copy 
  1. Var x,y,z,nok:longint;
  2. begin
  3. writeln('enter x and y');
  4. readln(x,y);
  5. repeat
  6. begin
  7. if x>y then
  8. x:=x-y;
  9. else y:=y-x
  10. end;
  11. until x<>y;
  12. z:=x;
  13. nok:=(x*y)/z;
  14. writeln('nok(', x, y, ')=', nok:6:3)
  15. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 3.0.4+dfsg-22 [2019/01/24] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(9,1) Fatal: Syntax error, ";" expected but "ELSE" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout
copy 
Standard output is empty
https://ideone.com/8xnNfo
language:
Pascal (fpc 3.0.4)
created:
4 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!