С клавиатуры вводится 10 чисел. Определить среднее арифметтческое всех чисел, которые больше первого. (Паскаль)

var

i, n, pol: integer; / / pol - количество положительных чисел, n - количество всех чисел

a, s: real; / / a - вводимое число, s - сумма положительных чисел

begin

pol: = 0; / / обнуляем счетчик

s: = 0;

writeln ('Введите количество чисел') ;

readln (n) ;

for i: = 1 to n do

begin

writeln ('Введите число') ;

readln (a) ;

if a > 0 then

begin

s: = s + a;

pol: = pol + 1;

end;

end;

writeln ('Среднее арифметическое положительных чисел: ', s / pol) ; {среднее арифметическое равно сумме чисел делить на их количество}

end.