{ > src.intmath }program intmath (input,output);var i,x,y,t1,t2 : integer;begin  x := 0;  y := 9;  t1 := time;  for i := 1 to 10000 do  begin    x := x + (y * y - y) DIV y;  end;  t2 := time;  writeln('Finish',t2-t1,x)end.