Объяснение:
program pa;
var y,x: integer;
begin
readln (x);
y: =sqr(1-sqr(x)+5*sqr(sqr(x)));
write (y);
readdln
end.
