Компьютер выводит среднее арифмитическое число не оканчивающееся на 5 и на 8.

Помогите решить!

Var

s, n, k:integer;

begin

Writeln ('введите натуральные числа, 0 - окончание ввода') ;

k:=0; s:=0;

repeat

Read (n) ;

if n0 then

if n mod 10 = 8 then begin k:=k+1; s:=s+n end

until n=0;

if k>0 then Writeln (s/k:0:4)

else Writeln (0)

end.

Пример

введите натуральные числа, 0 - окончание ввода

34 17 8 32 1424 28 7 0

18.0000