program example;
var i,n, sum: integer;
a,s: real;
begin
 sum:= 0;
 s:= 0;  
 writeln('Введите количество чисел');
 readln(n);
 for i:= 1 to n do
  begin
   writeln('Введите число');
   readln(a);
   if a > 0 then 
   begin
    s:= s + a;
    sum:= sum + 1;  
   end;
  end;
  writeln('Среднее арифметическое чисел:  ', s / sum);
end.