var y: integer; x: single = -1.8;begin y := trunc(x); writeln(y); readln;end.
Standard input is empty
-1
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!