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

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