9 lines
199 B
Text
9 lines
199 B
Text
real R;
|
|
[Format(20, 20);
|
|
repeat R:= RlIn(0);
|
|
RlOut(0, R);
|
|
Text(0, if R = float(fix(R)) then " is integer"
|
|
else " is not integer");
|
|
CrLf(0);
|
|
until R = 0.;
|
|
]
|