Для заданного x вычислите y по формуле

При этом:
а) операцию возведения в степень использовать запрещено;
б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание);
в) в программе может быть использовано не более пяти операторов присваивания.
Подсказка: преобразуйте выражение к следующему виду:
x - 1)x + 1)
x + 1\y = ((x + 2.5)x - 1)x + 1)
var
x, y: real;
begin
read(x);
y := x + 2.5;
y := y * x;
y := y - 1;
y := y * x;
y := y + 1;
write(y);
end.
Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.