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

Следующие вопросы