Исправил
program chislo;
var a,b:integer;
begin
readln(a);
readln(b);
if a mod b=0 then
writeln(a,'делится на',b)
else
writeln(a,'не делится на',b);
writeln('Остаток',a mod b);
end.
Исправил
program chislo;
var a,b:integer;
begin
readln(a);
readln(b);
if a mod b=0 then
writeln(a,'делится на',b)
else
writeln(a,'не делится на',b);
writeln('Остаток',a mod b);
end.