Найти ошибку (информатика, паскаль). var s,k,a: integer; begin s: =0; k: =0; read(a); while a< > 0 do begin if a mod 8=0 then begin s: =s+a; k: =k+1; end; readln(a); end; var y: real; begin y: = s/k; read(s); if s> 0 then writeln(y) else writeln('no') end; end.

Var s,k,a:integer;
Begin
s:=0;
k:=0;
Readln(a);
while a<>0 do
Begin
if a mod 8=0 then
Begin
s:=s+a;
k:=k+1;
end;
Readln(a);
end;
if k>0 then Writeln(s/k)
else Writeln('NO')
end.

Пример:
43
61
16
95
24
0
20