program while23;
uses crt;
var
a, b, x, y: integer;
begin
clrscr;
writeln ('Введите число а ');
readln (a);
writeln('Введите число b ');
readln(b);
x:=a;
y:=b;
While a <> b do
if a > b then
a:=a-b
else
b:=b-a;
writeln ('НОД ',a);
readln;
end.