Даны два натуральных числа n и m. если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. входные данные вводятся два числа. выходные данные выведите ответ на . (примеры : входные данные - 2,8. выходные - 1). p.s. решить надо в паскаль абц!

// PascalABC.Net 3.0, сборка 1052
var
  m, n: longint;

begin
  Read(m, n);
  if (m = 0) and (n <> 0) or (n = 0) and (m <> 0) then Writeln('1')
  else
    if (m = 0) and (n = 0) then Writeln('0')
    else
      if (m div n = 0) or (n div m = 0) then Writeln('1')
      else Writeln('0')
end.

Тестовое решение:
2 8
1