Даны 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.