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

Var
  S, a, h: real;

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