СОСТАВИТЬ в паскале ПРОГРАММУ ОСУЩЕСТВЛЯЮЩУЮ ПЕРЕВОД величин из радиан в градусы и наобоброт программа должна запрашивать

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