program nn; var a,b,i:integer;c:real; begin i:=0; b:=0; repeat readln(a); begin if a mod 8=0 then b:=b+a; i:=i+1; end; until a=0; c:=b/i; writeln(c); end. Где ошибка?

Вопрос школьника по предмету Информатика

program nn;
var a,b,i:integer;c:real;
begin
i:=0;
b:=0;
repeat
readln(a); begin
if a mod 8=0
then b:=b+a;
i:=i+1;
end;
until a=0;
c:=b/i;
writeln(c);
end.
Где ошибка?

Ответ учителя по предмету Информатика

после репит

begin readln(a) if a mod……. понял? ты ; не там поставил