NOD, Pascal - rextester

Language: Layout:

​x
 
//fpc 3.0.4
​
program NOD;
​
var
 x,y:integer;
procedure nod(x,y:integer);
begin
 if x=y then writeln('NOD-',x)
        else if x>y then nod(x-y,y) else nod(x,y-x);
end;
begin
 writeln('Ввод x,y');
 readln(x,y);
 nod(x,y);
 readln;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.05 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,33 sec