Массив из 10 элементов заполняется целыми числами. Составьте программу, которая вычисляет среднее арифметическое элементов, являющихся двузначными числами. (2 задача)

program wk;var mas:array [1..10] of integer;sr,k,i:integer;begink:=0;sr:=0; for i:=1 to 10 do  begin     readln(mas[i]);    if (mas[i] div 10)<>0 then     begin        sr:=mas[i]+sr;          k:=k+1      end;  end; writeln(sr/k) end.