3. Определить, является ли число G делителем числа Z или, наоборот, число Z делителем числа G. Ответом должно служить сообщение «Да, одно из чисел является делителем другого» или «Нет, ни одно из чисел не является делителем другого.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var (g,z):=ReadInteger2('Введите через пробел два натуральных числа');  if (g mod z=0) or (z mod g=0) then    Writeln('Да, одно из чисел является делителем другого')  else Writeln('Нет, ни одно из чисел не является делителем другого')end.