var
 s,d2,d1,c,Ang_A,Ang_B:real;
begin
 writeln ('Введите диагонали (в сантиметрах)');
 readln (d1,d2);
 c:=sqr(d1/2)+sqr(d2/2);
 c:=sqrt(c);
 s:=(d1*d2)/2;
 Ang_A:=2.0*ArcTan(d2/d1);
 Ang_B:=Pi-Ang_A;
 writeln ('Сторона равна ',c:6:3);
 writeln ('Площадь равна ',s:6:3);
 writeln ('A равен ',Ang_A:6:4,' B равен ',Ang_B:6:4);
 readln
end.