27 lines
441 B
Text
27 lines
441 B
Text
MODULE IntegerSeq;
|
|
IMPORT
|
|
Out,
|
|
Object:BigInt;
|
|
|
|
PROCEDURE IntegerSequence*;
|
|
VAR
|
|
i: LONGINT;
|
|
BEGIN
|
|
FOR i := 0 TO MAX(LONGINT) DO
|
|
Out.LongInt(i,0);Out.String(", ")
|
|
END;
|
|
Out.Ln
|
|
END IntegerSequence;
|
|
|
|
PROCEDURE BigIntSequence*;
|
|
VAR
|
|
i: BigInt.BigInt;
|
|
BEGIN
|
|
i := BigInt.zero;
|
|
LOOP
|
|
Out.Object(i.ToString() + ", ");
|
|
i := i.Add(BigInt.one);
|
|
END
|
|
END BigIntSequence;
|
|
|
|
END IntegerSeq.
|