Составить алгоритм вычисления площади треугольника по трем заданным сторонам с проверкой на существующий данный треугольник (по формуле Герона)

Паскаль

var a, b, c, S, p:real;

label e;

begin

e: a:=0; b:=0; c:=0; read (a, b, c) ;

if ((a+b) < = c) or ((a+c) < = b) or ((b+c) < = a) then

begin

writeln ('Такого треугольника не существует, введите стороны заново') ;

goto e;

end;

if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then

begin

p: = (a+b+c) / 2;

S:=sqrt (p * (p-a) * (p-b) * (p-c)) ;

writeln ('Площадь треугольника = ', S) ;

end;

end.