Var
 y,a,b,c,gamma,g_gamma,m_gamma:real;
 yn:Char;
Begin
 yn:='R';
 Repeat
  If yn='R' then
   begin
    a:=2.08;
    b:=-0.0805;
    c:=0.681;
    g_gamma:=17;
    m_gamma:=36;
    Writeln('a = 2.08');
    Writeln('b = -0.0805');
    Writeln('c = 0.681');
    Writeln('gamma (degrees) = 17');
    Writeln('gamma (minutes) = 36');
   end
  else
   begin
    Write('a = ');
    Readln(a);
    Write('b = ');
    Readln(b);
    Write('c = ');
    Readln(c);
    Write('gamma (degrees) = ');
    Readln(g_gamma);
    Write('gamma (minutes) = ');
    Readln(m_gamma);
   end;
  g_gamma:=g_gamma+m_gamma/60;
  gamma:=g_gamma*Pi/180;
  y:=Arctan(Abs((a-b*b)/c))+Sqrt(Abs(2.0*Sqr(Sin(gamma*2))/c-1));
  writeln('Result: y = ',y:8:6);
  Write('Continue? (y/n) ');
  Readln(yn);
 Until (yn='n') or (yn='N');
End.