trunc.pas

 {Trunc.PAS}
 
 { Пример программы для функции Trunc }
 
 Uses WinCrt;
 
 Begin
  WriteLn(1.4, ' преобразовывается в ', Trunc(1.4));
  WriteLn(1.5, ' преобразовывается в ', Trunc(1.5));
  WriteLn(-1.4, ' преобразовывается в ', Trunc(-1.4));
  WriteLn(-1.5, ' преобразовывается в ', Trunc(-1.5));
 End.