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

var a,b,c,A1,B1,C1,S:real; begin write('введите угол 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.