Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна

var
 ch: char;
 r: real;
begin
 readln(r);
 writeln('В градусы(G)? В радианы(R)?');
 readln(ch);
  case ch of
   'G', 'g': writeln((r*180/pi):2:2, ' градусов');
   'R', 'r': writeln((r*pi/180):2:2, ' радиан');
  end;
end.

uses crt;
var gr,rad,a,b:real;
    c:byte;
Begin
clrscr;
writeln('1:grad>rad');
writeln('2:rad>grad');
readln(c);
case c of
1: begin
   clrscr;
   writeln('vvod grad');
   readln(a);
   rad:=(pi/180)*a;
   write('rad= ',rad:4:4);
   end;
2: begin
   clrscr;
   writeln('vvod rad');
   readln(b);
   gr:=(180/pi)*b;
   write('grad= ',gr:4:4);
   end;
end;
readln;
end.