Program P143;
 { Media numerelor pozitive dintr-un şir }
var n, k : integer;
    x, s : real;
begin
 n:=0;
 k:=0;
 s:=0;
 writeln('Daţi un şir de numere reale:');
 while not eof do
   begin
     readln(x);
     n:=n+1;
     if x>0 then
        begin
          k:=k+1;
          s:=s+x;
        end;
   end; { while }
 if n=0 then writeln('Şir vid')
    else if k=0 then writeln('Şirul nu conţine numere pozitive')
            else writeln('Media=', s/k);
 readln;
end.