Текст программы

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.