Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : найти наибольший общий делитель (сокращённо нод) двух целых чисел х и y. кроме этого, ваша программа не должна вычислять нод, если введено хотя бы одно отрицательное число.

Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
 begin
 a:=x; b:=y;
 while a<>b do
       if a>b then a:=a-b else b:=b-a;
 writeln('НОД(',x,',',y,') = ',a);
 end
else writeln('Ошибка ввода');
end.

Пример:
x, y:
50 125
НОД(50,125) = 25