program DynamicMean;
var 
   sX,xi,xCount	: real;
begin
   xCount := 0;
   while (true) do
   begin
      xCount:=xCount+1;
      writeln("Parakalw dwste ena neo pragmatiko ari8mo: ");
      readln(xi);
      sX := sX+xi;
      writeln("H nea mesh timh einai: ");
      writeln(sX/xCount);
   end;
end.