Если три заданных числа могут быть сторонами остроугольного треугольника, то вычислите его площадь - Pascal

var a,b,c,p,s:real;
begin
writeln('Введите 3 положительных числа:');
readln(a,b,c);
if (abs(a-b)>=c)or(a+b<=c)then
write('Эти числа не могут обозначать стороны треугольника')
else
 begin
  if (a*a+b*b>c*c)and(a*a+c*c>b*b)and(b*b+c*c>a*a) then
   begin
    writeln('Это остроугольный треугольник!');
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('Его площадь=',p:0:2);
   end
  else write('Это не остроугольный треугольник!');
 end;
end.