fork(1) download
copy 
  1. program Gafforov_A_9V
  2. const m: array [1..3] of integer =(525,315,210);
  3. var i, x, y, z: integer
  4. procedure nod (a, b: integer; var c: integer);
  5. begin
  6. while a<>b do
  7. if a>b then a:=a-b else b:=b-a;
  8. c:=a
  9. end;
  10. begin
  11. x:=m[1]
  12. for i:=2 to 3 do
  13. begin
  14. y:=m[i];
  15. nod (x, y, z) ;
  16. x:=z
  17. end;
  18. writeln ('НОД=', x) 
  19. end.
Success #stdin #stdout #stderr 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 1: near "program": syntax error
Error: near line 3: near "var": syntax error
Error: near line 5: near "while": syntax error
Error: near line 8: near "c": syntax error
Error: near line 10: near "x": syntax error
Error: near line 15: near "nod": syntax error
Error: near line 16: near "x": syntax error
Error: near line 18: near "writeln": syntax error
https://ideone.com/tM93ap
language:
SQLite (sqlite 3.27.2)
created:
4 days 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!