Пишет ошибку "Встречено else, а ожидался оператор"

Что не так?

program chislo;

var a,b:integer;

begin

readln(a);

readl(b);

if a mod b=0 then

writeln(a,'делится на',b)

else

writeln(a,'не делится на',b);

writeln('Остаток',a mod b);

end;

end.