Program Example13; { Program to demonstrate the floor function. } Uses math; begin Writeln(Ceil(-3.7)); // should be -4 Writeln(Ceil(3.7)); // should be 3 Writeln(Ceil(-4.0)); // should be -4 end.