Pascal 无余数的帕斯卡除法

编写一个程序，如果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.

Writeln（Ord（n mod m=0））

或

如果n mod m=0，则写入（1）否则写入（0）

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