Var q, p, x:real;
Begin
Write ('x=') ;read(x) ;
Q:=sin(x)+2*cos(x)+1;
P:=q/x;
Writeln('p(q(x)) =', p) ;
End.
Var q, p, x:real;
Begin
Write ('x=') ;read(x) ;
Q:=sin(x)+2*cos(x)+1;
P:=q/x;
Writeln('p(q(x)) =', p) ;
End.