Дан треугольник со стороной a и прилежащими углами Y и B. Вычислить площадь треугольника, найти остальные стороны и угол между ними.
Написать в паскале

var a,b,c,A1,B1,C1,S:real;beginwrite('введите угол c => ');readln(c);write('введите угол b => ');readln(b);write('введите сторону A1 => ');readln(A1);a:=180-(b+c);writeln('угол а =',a);B1:=(sin(b)*A1)/sin(a);writeln('сторона В=',B1);C1:=sin(c)*A1/sin(a);writeln('сторона C=',C1);S:=0.5*B1*C1*sin(a);writeln('площадь s=',s);end.