var a,c,f: integer; begin readln(a); for a:=5 begin readln(c); if (a mod 25=10)then f:= a+c; end. writeln(s) end. в чем ошибка

Неправильно написан цикл

Объяснение:

синтаксис объявления таков

for i := 1 to n do

       // код вашей программы

от 1 до n делаем такой-то код

В вашем случае for a:=5 begin не указан сколько раз выполнить цикл

если пять раз то for a:=1 to 5 do begin

// код

end;