Program P165_4b;
Uses
    P165_4a;
Var
   g1, g2: TGrad;
   r1, r2: TRad;
    
BEGIN
  write('g1 = '); readln(g1); 
  write('r2 = '); readln(r2); 

  r1 := radiani(g1); 
  g2 := grade(r2);   

  writeln;
  writeln(g1:3,'` = ',r1:3:0);
  writeln(r2:3:0,' = ',g2:3,'`');

  writeln;
  writeln(g1,'` + ',g2,'` = ', sumGrad(g1,g2),'`');

  writeln;
  write(g1,'`',compGrad(g1,g2),g2,'`',' <=> ',normGrad(g1),'`',compGrad(g1,g2),normGrad(g2),'`');

  readln;
END.