program koszekans; var x,r :real; begin Writeln('Kerem a szoget!'); readln(x); r:=x*pi/180; writeln('A szog koszekansa: ', 1/sin(r):8:2); readln end.