Program P66;
 { Media aritmetică a numerelor pozitive
   citite de la tastatură }
var x, suma : real;
          n : integer;
begin
 n:=0;
 suma:=0;
 writeln('Daţi numere pozitive:');
 readln(x);
 while x>0 do
    begin
      n:=n+1;
      suma:=suma+x;
      readln(x);
    end;
 writeln('Aţi introdus  ', n, '  numere pozitive.');
 if n>0 then writeln('media=', suma/n)
        else writeln('media=*****');
 readln;
end.