Решите Паскаль( напишите весь алгоритм)

Question

Решите Паскаль( напишите весь алгоритм)

---

---

Answer 1

var

 x:real;

begin

write('х = ');

read(x);

write('y = ',sqr(1 + sqr(x)+5*sqr(sqr(x))));

end.