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

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

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