mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
10 lines
82 B
ObjectPascal
10 lines
82 B
ObjectPascal
|
|
var
|
|
i: single;
|
|
Begin
|
|
case round(i) of
|
|
0: WriteLn;
|
|
1: WriteLn;
|
|
end;
|
|
end.
|