program bench1(input,output); var i,j,x,y:integer; begin writeln('start', chr(7)); x := 0; y := 9; for i := 1 to 10000 do begin x := 0; for j := 1 to 1000 do begin x := x+(y*y-y) div y; y := y+1; y := y-1; end; end; writeln('finish', chr(7)); end.