уже отвечал , но лишними не бывают :3
var
x:real;
begin
write('х = ');
read(x);
write('y = ',sqr(1 + sqr(x)+5*sqr(sqr(x;
end.
