Найти площадь заштрихованной фигуры. если a,b,c вводится с клавиатуры

Так. Если точек 3, значит это треугольник.
var a,b,c,p,p2:real;
begin writeln('a,b,c ');
readln(a,b,c);
p:=(a+b+c)/2;
 p2:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Perimetr= ',p2:0:3);
end.