RosettaCodeData/Task/Integer-sequence/Pascal/integer-sequence-1.pas
2023-07-01 13:44:08 -04:00

9 lines
178 B
ObjectPascal

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