var y: integer; x: single = -1.8; begin y := trunc(x); writeln(y); readln; end.