program z1;
var x,y:integer;
begin
write ('x = ');
read(x);
y:=sqr(x)*(x*x+1);
write ('y = ',y)
end.
Объяснение:
на картинке вычисление при x = 6
