var
x, Y: Real;
begin
Write('Введите значение x: ');
ReadLn(x);
Y := Sqr(1 - Sqr(x) + 5 * x);
WriteLn('Значение Y: ', Y);
ReadLn;
end.
Линейный алгоритм для решения этой задачи выглядит следующим образом:
1. Введите значение переменной x.
2. Вычислите значение выражения (1 - x^2 + 5x)^2.
3. Выведите полученное значение.
4. Завершите программу.