没有余数的Pascal除法

Question

编写一个程序，如果m对n除而不余数，则返回1，如果不除则返回0。

program Division;
var m, n:longint;
begin
readln(m, n);  
writeln(5 mod 4);
writeln((1-(n mod m)div 2));
end.

Answer 1

program Division;
var n, m: integer;
begin
readln(n,m);
writeln (1 - (n mod m + 1) div 2 mod 2);
end.