RosettaCodeData/Task/Test-integerness/XPL0/test-integerness.xpl0

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.;
]