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

  • Паскаль
    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.