Вычислить площадь треугольника заданного своими сторонами, предварительно проверив существование данного треугольника В паскале Пожалуйста, очень нужно))

var a,b,c:integer; p,s:real; begin write('Введите значение A=');read(a); write('Введите значение B=');read(b); write('Введите значение C=');read(c); p:=a+b+c/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); if (a