mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 14:29:34 +02:00
12 lines
273 B
ObjectPascal
12 lines
273 B
ObjectPascal
{ %RESULT=6 }
|
|
{$mode ISO}
|
|
program isoModeReadingNumbers(input, output);
|
|
var
|
|
i: integer;
|
|
begin
|
|
{ we cannot call the executable with <&- >&- while running the test suite,
|
|
so render the file handle manually illegal }
|
|
Textrec(input).handle:=$1234;
|
|
readLn(i);
|
|
end.
|