programn szekans;
var x,r :real;
begin
     Writeln('Kerem a szoget!');
     readln(x);
     r:=x*pi/180;
     writeln('A szog szekansda: ', 1/cos(r):8:2);
     readln
end.