program xxx;
uses crt;
var f:text;
      k:byte;
      s,n:integer;
BEGIN
clrscr;
assign(f,'e:\xxx\test.txt');
reset(f);
k:=0;
s:=0;
while not eof(f) do
  begin
    read(f,n);
    if n>0 then
      begin inc(k);
        s:=s+n;
      end;
  end;
if k<>0 then writeln('среднее арифметическое положительных чисел',s/k:5:2)
else writeln('положительных чисел нет');
close(f);
readln;
End.