Решите пожалуйста вторую задачу, очень нужно. Pascal

Question

Решите пожалуйста вторую задачу, очень нужно. Pascal

---

Answer 1

Var y, x:integer;
begin
read(x);
y:=(abs(x-1))+(sqrt(x)/(sqr(x)*cos(x)))
write('y=',y);
end.