path: root/tests/tbs/tb0450.pp

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