{$mode delphi}

function T: Integer;
begin
  for Result:=0 to 10 do ;
end;

begin
  T;
end.