program kkk; uses crt; var a,b,c,q,s,p:real; BEGIN clrscr; writeln('Ââåäèòå a b q'); readln(a,b,q); q:=q/180*pi; c:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(q)); writeln('c=',c); p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('S=',S:7:2); readln; END.