Даны 4 числа -5.8 ; 5.8 ; -3.2 ; 3.2 Необходимо для каждого выполнить Int,Trunc, Round, Frac. — Pascal(Паскаль)

uses crt;
var a:integer;
    n,r:real;
begin
clrscr;
n:=-5.8;
writeln('n=',n:0:1);
r:=int(n); //вещественное число без дробной части
writeln('Int(n)=',r);
a:=trunc(n);//целая часть числа, то же что и Int, но целого пипа
writeln('Trunc(n)=',a);
a:=round(n);//округленное до целого
writeln('Round(n)=',a);
r:=frac(n); //дробная часть
writeln('Frac(n)=',r:0:1);
readln
end.