написать на языке паскаль программку вычисления у по формуле: y=(1-x^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.