Для каждой из перечисленных операций в Паскале существует соответствующая команда: int(x), round(x), trunc(x).
program ex51;
Uses Crt;
var
i: integer;
x,y: real;
BEGIN
ClrScr;
Write('Введите действительное число: ');
ReadLn(x);
Writeln('Введите нужную цифру для выбора:');
Writeln('1 - целой части числа');
Writeln('2 - числа Х, округленного до ближайшего целого');
Writeln('3 - числа Х без дробных цифр');
ReadLn(i);
case i of {выбираем нужную операцию}
1:
begin
y:=int(x);
if y<0 then y:=y-1;
end;
2: y:=round(x);
3: y:=trunc(x);
end;
writeln('Результат: y = ',y:5:0);
ReadLn;
END.