СОСТАВИТЬ в паскале Программку Исполняющую ПЕРЕВОД величин из радиан в градусы

program g_r;
Uses Crt;
var n, с: real;
d: char;
begin
repeat
writeln(Перевод градусов в радианы: кнопка "g");
writeln(Перевести радианы в градусы: кнопка "r");
writeln(Выход: кнопка "o");
readln(d);
case d of
g: begin
writeln(Введите число градусов );
read(n);
с:=(n * pi) / 180;
writeln(n, град = , с : 6 : 3, рад);
writeln(Продолжить Enter);
readln()
end;
r: begin
writeln(Введите число радиан );
read(n);
с:= (n * 180) / pi;
writeln(n, рад = , с : 6 : 3, град);
writeln(Продолжить: Enter);
readln();
end;
o: writeln(Работа  завершена)
end;
readln();
clrscr
until d = o
end.