даны x,y,z найти b если
b = 1+cos(y-2)/x4/2+ sin^2 7 (паскаль)

var b,x,y,z:real; begin write('x->'); readln(x); write('z->'); readln(y); write('z->'); readln(z); b:=0; b:=1+cos(y-2)/x*4/2+ sin^2 7; writeln('b=',b:4:2); readln; end.