Вот программа, но без углов. Может формулу подскажите доделаю!
Код:
var
s,d2,d1,c:real;
begin
writeln ('Введите диагонали (в сантиметрах)');
readln (d1,d2);
c:=sqr(d1/2)+sqr(d2/2);
c:=sqrt(c);
s:=(d1*d2)/2;
writeln ('Сторона равна ',c:1:4,'Площадь равна',s:2:1);
readln
end.