Найти площадь заштрихованной фигуры. Если 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.