Помогите с третьим заданием

3.
program z1;
var b,x,z:real;
begin
writeln('введите b,x');
readln(b,x);
if sin(sqr(x))-cos(x*x*x-2)=0 then
writeln('такой z не существует')
else
z:=(3*b*sin(x)+cos(3*x))/(sin(sqr(x))-cos(x*x*x-2));
writeln(z);
end.

4.
program z1;
var q,z,y,x:integer;
begin
writeln('введите трехзначное число');
readln(x);
q:=x div 100;
y:=x div 10 mod 10;
z:=x mod 10;
writeln(q,z,y);
end.