Program test;
var
  i: Longint;
begin
  for i := 0 to 100000 do ;
end.