Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования

Паскаль для решения следующей задачи:

НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ (сокращённо НОД) двух целых чисел Х и Y. КРОМЕ этого, ВАША ПРОГРАММА не должна вычислять НОД, если введено хотя бы одно отрицательное число. О неправильном вводе чисел следует сообщить пользователю!!!

Например, программа ПОСЛЕДОВАТЕЛЬНО просит ввести два числа А и В.

Затем, если хоть одно число или оба числа отрицательные, программа сообщает об этом пользователю. Если всё хорошо, то находится НОД.
Довать комментарии срочно нужна помощь

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите через пробел два неотрицательных числа:');
  if (a<0) or (b<0) then Writeln('Неверный ввод')
  else begin
    while b<>0 do (a,b):=(b,a mod b);
    Writeln('НОД этих чисел: ',a)
    end
end.