Текст программы. Write('Введите стороны треугольника: ');

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.

Тест

Необходимо выполнить несколько тестов с отрицательными числами, несуществующими треугольниками и треугольниками с известными площадями. Вид таблицы для тестов и несколько примеров треугольников приведены ниже.

	a	b	c	Расчетная площадь	Результат работы программы
					…
				…
				…
					…
				…
					…
				…
	…	…	…	…	…