Вот вам задачка для круты прогеров(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.