uses crt;
var
x,y,z,F,u:real;
begin
clrscr;
x:=2.3156; y:=-1.3785; Z:=0.578;
Writeln(' x=',x:10,' y=':12,y:17:6,' z= ',z);
Write('U=(1+sqr(sin(x+y)))/(2+abs((x-2*x)/(1+sqr(x)*sqr(y))))/(sqr(cos(sin(1/z))))');
Writeln;
U:=(1+sqr(sin(x+y)))/(2+abs((x-2*x)/(1+sqr(x)*sqr(y))))/(sqr(cos(sin(1/z))));
Writeln('U= ',u);
readln;
end.