написать на языке паскаль программу вычисления у по формуле: y = (1-x^2 + 5x^4) ^2 где х - целое число

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write (' введите заданное число x '); / / вводим с клавиатуры число

read (x);

y:=sqr (1 - sqr (x) + 5 * sqr (sqr (x))); / / вычисляем значение у по заданной формуле, используя функцию возведения в квадрат sqr. Возведение в четвертую степень реализовано, как возведение во вторую дважды

writeln (' полученный ответ = ', y); / / выводим ответ

end.