RosettaCodeData/Task/Integer-sequence/Delphi/integer-sequence.delphi

program IntegerSequence;

{$APPTYPE CONSOLE}

var
  i: Integer;
begin
  for i := 1 to High(i) do
    WriteLn(i);
end.