Нужно решить задачу в виде процедуры Паскаль. Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму чисел которые получились

var

 a,b,c,sum:real;

procedure cel(var x:real);

 begin

   x:=trunc(x);

 end;

begin

 sum:=0;

 write('Введите a,b,c: '); readln(a,b,c);

 cel(a); cel(b); cel(c);

 sum:=sum+a+b+c;

 writeln('Сумма: ',sum);

end.