Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 20 до 80.
Var a,b,c:integer;Begina:=20;b:=3;While a<=80 do beginif a mod b=0thenc:=a div b;a:=a+1;writeln(c);elsea:=a+1;end;End.Pascal ABCПишет встречено else а ожидался оператор.