Решите пожалуйста, распишите всю программу

Question

Решите пожалуйста, распишите всю программу

---

---

Answer 1

уже отвечал , но баллы лишними не бывают :3

var

x:real;

begin

write('х = ');

read(x);

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

end.