Pascal ABC, Turbo Pascal 7, Free Pascal, функции Pascal, Паскаль
function Trunc(X: real): longint;
Скачать Pascal ABC
Скачать Turbo Pascal