Треугольник задан величинами своих углов и радиусом описанной окружности.Вычеслить длины сторон треугольника.

Var
  a, b: array [1..3] of real;
  r: real;

begin
  writeln(Введите углы (A, B, C), затем - радиус);
  readln(a[1], a[2], a[3], r);
  b[1] := r * 2 * sin(a[1]);
  b[2] := r * 2 * sin(a[2]);
  b[3] := r * 2 * sin(a[3]);
  writeln(a = , b[1]);
  writeln(b = , b[2]);
  writeln(c = , b[3]);
end.