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

vara,b,c:integer;p,s:real;beginwrite('Введите значение 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<b+c) and (b<a+c) and (c<a+b) thenwriteln('Треугольник существует')elsewriteln('Треугольник не существует');writeln('Площадь треугольника=', S:5:2);end.