program Lab2;
{$APPTYPE CONSOLE}
uses SysUtils;
var
a,b,c,p:Real;
begin
Write('Введите стороны треугольника: ');
ReadLn(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
WriteLn('Некорректный ввод')
else
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
WriteLn('Вычисление невозможно')
else
begin
p:=(a+b+c)/2;
WriteLn('Площадь треугольника равна ',
Sqrt(p*(p-a)*(p-b)*(p-c)));
end;
ReadLn; { Задержка для консольных приложений }
end.