{ > src.realmath }

program realmath (input,output);

var i,t1,t2 : integer;
    x,y : real;

begin
  x := 0.0;
  y := 9.9;
  t1 := time;
  for i := 1 to 10000 do
  begin
    x := x + (y * y - y) / y;
  end;
  t2 := time;
  writeln('Finish',t2-t1,x)
end.
