program AAA
var p,a,b:real;
c,s : real;
begin
readln(a,b);
c:=p - a-b; {Третья сторона}
s:=p/2(p/2-a)(p/2-b)(p/2-c); {Площадь}
writeln(c,' ',s)
end.
Я не знаю, что нужно, но вот нахождение третьей стороны и площади, надеюсь
program AAA
var p,a,b:real;
c,s : real;
begin
readln(a,b);
c:=p - a-b; {Третья сторона}
s:=p/2(p/2-a)(p/2-b)(p/2-c); {Площадь}
writeln(c,' ',s)
end.
Я не знаю, что нужно, но вот нахождение третьей стороны и площади, надеюсь