Склавиатуры вводится последовательность из 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.