program bench2(input,output);

var
  i,j:integer;
  x,y : real;

begin
writeln('start', chr(7));
x := 0;
y := 9.9;
for i := 1 to 10000 do begin
    x := 0;
    for j := 1 to 1000 do
       x := x+(y*y-y) / y;
end;
writeln('finish', chr(7));
end.