Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Trunc() pascal.
Функция Trunc() возвращает целочисленную часть числа типа Real.

program TruncT_Task;
  // Trunc(x) pascal
var
  i_NUm: integer;
  r_NUm: real;
begin
  r_NUm := 2.889;
  i_NUm := Trunc(r_NUm);
  //Вывод на экран MININT
  Writeln('Результат целое число: ', i_NUm, ' от ', r_NUm: 4: 2);
  r_NUm := 7.124;
  i_NUm := Trunc(r_NUm);
  //Вывод на экран MININT
  Writeln('Результат целое число: ', i_NUm, ' от ', r_NUm: 4: 2);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Функция Trunc () pascal в Паскале.