Код:
Program IF1;
var
Z:real;
x:real;
t:real;
begin
Write('Введите число x = ');
readln(X);
t:=2.2;
if X<0.5 then begin Z:=(LN(x)+sqr(x))/sqrt(x*x*x+t);
Writeln('Z:=',Z);
end
else if (X>=0.5)and(x<=0.9)then
begin
Z:=sqrt(x+t)+1/(x*x*x);
Writeln('Z:=',Z);
end
else Writeln('X выходит за определяемые значения');
end.