Ответ: program formula;var  x:integer;  p,y:real;begin  Write(‘vvedute x<>0 ->’);  Readln(x);  if x=0 then Writeln(‘x=0 nedopustimo’)  else begin    p:= abs(cos(x));    if p=0 then Writeln(‘ln(0) v 4islitele’)    else begin      y:=ln(p)/ln(1+sqr(x*x));      Writeln(‘y=’,y:5:2)    end  endend.