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.