var ab,ac,bc,ah,sinb,cotc,sabh,tanb,ans,aa,b,c:extended;
begin
ab := 4;
ac := 3;
ans := sqr(ab)+sqr(ac);
bc:= sqrt(ans);
b:=sqr(ac) / bc;
c:=sqr(ab) / bc;
aa:=b*c;
ah := sqrt(aa);
sinb:=ac/bc;
tanb:=ac/ab;
cotc := tanb;
sabh:=(ah*c) / 2;
writeln('a. do dai canh huyen = ',bc:0:2);
writeln('b. duong cao = ',ah:0:2);
writeln('c. sinb = ',sinb:0:2);
writeln('c. cotc = ',cotc:0:2);
writeln('d. dien tich tam giac ABH = ',sabh:0:2);
readln;
end.