program arkuszkoszinusz;
var x, r:real;
begin
     Writeln('K‚rem a szog koszinuszat: ');
     readln(x);

     r:=arctan(sqrt(1-x*x)/x);
     writeln('A szog: ', 180*r/pi:8:2);
     readln
end.