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

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