10 lines
137 B
ObjectPascal
10 lines
137 B
ObjectPascal
MODULE Infinity;
|
|
IMPORT StdLog;
|
|
|
|
PROCEDURE Do*;
|
|
VAR
|
|
x: REAL;
|
|
BEGIN
|
|
x := 1 / 0;
|
|
StdLog.String("x:> ");StdLog.Real(x);StdLog.Ln
|
|
END Do;
|