Question

Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 20 до 80. Исправте ошибку. Пишет встречено else а ожидался оператор.
Var a,b,c:integer;

Begin

a:=20;

b:=3;

While a<=80 do

begin

if a mod b=0

then

c:=a div b;

a:=a+1;

writeln(c);

else

a:=a+1;

end;

End.

Pascal ABC