Составить программу в паскале.перевода градусной меры в радианную.​

Программа:

var g,r:real;

begin

write('Введите значение в градусах: ');

readln(g);

r:=g*Pi/180;

writeln(g:5:2,' гр. = ',r:7:4,' рад.');

end.

Пример:

Введите значение в градусах: 90

90.00 гр. =  1.5708 рад.

uses crt;

var c:real;

x:char;

begin

read(c);

writeln('Перевести в радианы?(R) или в градусы(G)');

x:=readkey;

case x of

'r': writeln((c*Pi/180):7:2,' Rad');

'g':writeln((c*180/Pi):7:2,' Grad');

end;

end.