Составить программу, проверяющую, выполняется ли условие существования треугольника. Если треугольник существует, то найти его периметр и площадь

Program Treug1;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
writeln('Введите длины сторон треугольника (a,b,c)');
readln(a);
readln(b);
readln(c);
if (a+b>c) and (a+c>b) and (c+b>a) then
begin
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
writeln('Периметр - ',p:10:2);
writeln('Площадь - ',s:10:2);
end
else writeln('Треугольник не существует');
readln;
end.