Найти среднее арифметическое элементов последовательности превосходящих некоторое число с. размер произвольный. C вводится с экрана.

var  i,n,k:integer;  t,s,c:real;  begin  Write('c='); Read(c);  Write('Количество чисел: '); Read(n);  s:=0; k:=0;  Write('Вводите: ');  for i:=1 to n do begin    Read(t);    if t>c then begin      s:=s+t;      k:=k+1      end    end;  if k>0 then Writeln('Среднее арифметическое: ',c/k)  else Writeln('Нет чисел, превышающих ',c)end.Примерc=18.5Количество чисел: 10Вводите: 12.4 15 8.6 -4.12 0 17.34 21 0.12 21.15 19Среднее арифметическое: 6.16666666666667