Написать программу в Паскале (см фото)

var x,z:real;
begin
write('x = ');
readln(x);
if x>=5 then z:=sin(1/(x+0.76))+cos(x*x+3)
else if x<=3 then z:=abs(x-2)/(x*x+2)
       else z:=ln(x*x*x+5)-2*x;
writeln('x = ',x,' z = ',z);
end.

Пример:
x = 1.5
x = 1.5 z = 0.117647058823529