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

Паскальvar a,b,c,S,p:real;label e;begine: a:=0;b:=0;c:=0;read (a,b,c);if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) thenbeginwriteln ('Такого треугольника не существует, введите стороны заново');goto e;end;if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) thenbeginp:=(a+b+c)/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln ('Площадь треугольника = ',S);end;end.