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

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

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

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

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

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)    endend.