Вот вам задачка для круты прогеров(PascalABC)

Program n1;
var n,m:integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(m,n);
writeln('nod=',NOD(m,n));
end.