fpc/tests/tbs/tb0450.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

10 lines
82 B
ObjectPascal

var
i: single;
Begin
case round(i) of
0: WriteLn;
1: WriteLn;
end;
end.