Program nn; var a,b,i:integer;c:real; begin i:=0; b:=0; repeat readln(a); begin if a mod...

Question

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.
Где ошибка?

Answer 1

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