petyaGavrikov

Verified answer

// В программе вычисляется НОД(a,c)
var a,c:integer;
begin
readln(a,c);
while not (a=c) do
 if a>c then a:=a-c else c:=c-a;
writeln(a);
end.

Пример:
75 100
25