Составить программу вычисление площади трехгольника выделить целую часть результата и выделить дробную часть

Var
  S, a, h: real;

begin
 
  write('Введите длину основания --->');read(a);
  write('Введите высоту --->');read(h);
 
  S := (a * h) / 2;
 
  writeln('Площадь треугольника равна', ' ', S);
  writeln('Целая часть - ', Trunc(S));
  writeln('Дробная часть - ', Frac(S));
end.