Определить площадь треугольника (если он существует) по формуле Герона

program x3;
var a,b,c,p,r,s:real;
begin
writeln('Введите стороны треугольника:');
readln(a,b,c);
if(a<b+c)and(b<a+c)and(c<a+b) then write('Треугольник существует!')
else writeln('Треугольник не существует!');
{Подскжите что сюда вставить}
p:=(a+b+c)/2;{полупериметр}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{Площадь треугольника по формуле Герона}
r:=s/p;{радиус}
s:=pi*r*r;{Площадь вписанного круга}
writeln('Площадь вписанного круга=',s:0:2);
readln;
end.

program x3;
var a,b,c,p,r,s:real;
begin
writeln('Введите стороны треугольника:');
readln(a,b,c);
if(a<b+c)and(b<a+c)and(c<a+b) then
   begin
   writeln('Треугольник существует!');
   p:=(a+b+c)/2;{полупериметр}
   s:=sqrt(p*(p-a)*(p-b)*(p-c));{Площадь треугольника по формуле Герона}
   r:=s/p;{радиус}
   s:=pi*r*r;{Площадь вписанного круга}
   writeln('Площадь вписанного круга=',s:0:2);
   end else writeln('Треугольник не существует!');
readln;
end.

program x3;
var a,b,c,p,r,s:real;
begin
writeln('Введите стороны треугольника:');
readln(a,b,c);
if(a<b+c)and(b<a+c)and(c<a+b) then begin
   write('Треугольник существует!');
   p:=(a+b+c)/2;{полупериметр}
   s:=sqrt(p*(p-a)*(p-b)*(p-c));{Площадь треугольника по формуле Герона}
   r:=s/p;{радиус}
   s:=pi*r*r;{Площадь вписанного круга}
   writeln('Площадь вписанного круга=',s:0:2);
   end
else 
   writeln('Треугольник не существует!');
readln;
end.