1) Дано число X. Написать программу для вычисления по формуле y=x+x^2+x^4

PROGRAM PR;
VAR
X,Y: REAL;
BEGIN
WRITE(‘ Введите начальное значение Х’);
READLN(XN);
Y:=X+X*X+X*X*X*X;
WRITE(Y)
END
END.