z_triangle3.PAS

{* Площадь треугольника из его сторон *}

Unit Z_TRIANGLE3;
Interface
Implementation
Begin
 writeln('Площадь треугольника из его сторон
'
);
End.

Program z_triangle;

Uses z_triangle3.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a : real;
  b : real;
  c : real;
  p : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите длину стороны а');
  readln(a);
  writeln('Введите длину стороны b');
  readln(b);
  writeln('Введите длину стороны c');
  readln(c);
  p := (a + b + c) / 2;
  writeln; {* Вывод пустой строки *}
  writeln('Площадь данного треугольника');
  writeln(sqrt(p * (p - a) * (p - b) * (p - c)) : 0 : 2);
  readln; {* Ждем нажатия Enter *}
End.