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

в паскале АВС

Var
    c: integer;
    n: real;

begin
    write('Перевод в градусы (1) либо в радины (2) ? ');
    readln(c);
    write('Переводимая величина = ');
    readln(n);
    
    if c = 1 then
        writeln(n, ' radian = ', n * 180 / pi, ' gradus')
    else
        writeln(n, ' gradus = ', n * pi / 180, ' radian')
end.