Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 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