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.