Var x, y: Integer;
BeginWriteln('Введите два числа');Readln(x,y);
while (x<>0) and (y<>0) do beginIf x>y Then x:=x Mod yElse y:=y Mod x;end;Writeln('НОД=', x+y); end.
Var x, y: Integer;
Begin
Writeln('Введите два числа');
Readln(x,y);
while (x<>0) and (y<>0) do begin
If x>y Then x:=x Mod y
Else y:=y Mod x;
end;
Writeln('НОД=', x+y);
end.