Ideone.com

download

copy

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

Success #stdin #stdout 0s 276KB

stdin

copy

Standard input is empty

stdout

copy

-1

https://ideone.com/KcuXR2

language:

Pascal (fpc 3.0.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!