С клавиатуры вводится последовательность из 13 целых чисел. Найти среднее арифметическое чисел, меньших 9

var

i : integer;

val: integer;

sum: integer;

cnt: integer;

begin

sum:=0;

cnt:=0;

for i:=1 to 13 do

begin

readln (val);

if (val<9) then

begin

cnt : = cnt + 1; 11

sum : = sum + val;

end;

end;

writeln (sum/cnt);

end.

Паскаль.

uses crt;

var

a, s, i, k:integer;

begin

s:=0; k:=0;

for i:=1 to 13 do

begin

write ('Введите ', i,' число: '); read (a);

if a<9 then

begin

s:=s+a; k:=k+1;

end;

end;

write ('Среднее арифметическое чисел, меньших 9: ', s/k);

end.