program func;
uses crt;
var
n, m, nod: integer;
{начало описания функции}
function nod_Evk(f_n, f_m: integer): integer;
begin
while n<>m do
begin
if m>n then m:=m-n
else n:=n-m;
end;
nod_Evk:=n;
end;
{конец описания функции}
begin
clrscr;
write(' N =: '); read(n);
write(' M =: '); read(m);
write(' Наибольший общий делитель ', n,' и ', m, ' = ');
nod:=nod_Evk(n, m);
write(nod);
end.