mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-04 21:30:35 +01: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.
|