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.