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

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<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
writeln('Площадь треугольника=', S:5:2);
end.