mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 10:39:26 +02:00
16 lines
174 B
ObjectPascal
16 lines
174 B
ObjectPascal
|
|
var
|
|
i: single;
|
|
Begin
|
|
case round(i) of
|
|
0: WriteLn;
|
|
1: WriteLn;
|
|
end;
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.1 2003-02-02 14:37:45 carl
|
|
+ round returning int64 problem
|
|
|
|
} |