fork(1) download
  1. var
  2. y: integer;
  3. x: single = -1.8;
  4. begin
  5. y := trunc(x);
  6. writeln(y);
  7. readln;
  8. end.
Success #stdin #stdout 0s 276KB
stdin
Standard input is empty
stdout
-1