Определить стороны треугольника, заданного величинами своих углов и радиусом описанной окружности. Применить теорему синусов(Basic)

PASCALa,b,c:real;a1,b1,c1,r: integer;begin   writeln('введите угол А=');   readln (a1);   writeln ('введите угол B=');   readln (b1);   c1:=180-(a1+b1);   writeln ('введите радиус r=');   readln (r);   a:=2*r*sin(a1);   b:=2*r*sin(b1);   c:=2*r*sin(c1);   writeln('сторона А=',a);   writeln('сторона B=',a);   writeln('сторона C=',a);   readln; end.BASICclsinput "a=",a1input "b=",b1c1=180-(a1+b1)input "r=",ra=2*r*sin(a1)b=2*r*sin(b1)c=2*r*sin(c1)print "a=";aprint "b=";bprint "c=";c