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.