Составьте программу, определяющую остаток от деления числа а на число в. (паскаль)

var

a,b,c: real;

begin

read(a,b);

c: =a mod   b;

write(c);

end.

может быть крик?

решение должно иметь од 20 до 5000

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.