RosettaCodeData/Task/Integer-sequence/Pascal/integer-sequence-1.pas

Program IntegerSequenceLimited;
var
  Number: QWord = 0; // 8 bytes, unsigned: 0 .. 18446744073709551615
begin
  repeat
    writeln(Number);
    inc(Number);
  until false;
end.