{* Площадь треугольника из его сторон *}
Unit Z_TRIANGLE3;
InterfaceImplementationBegin 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.