program kotangens;
var x, r:real;
begin
     Writeln('K‚rem a szoget fokban: ');
     readln(x);
     r:=x*pi/180;
     writeln('A szog kotangense: ', cos(r)/sin(r):8:2);
     readln
end.