я так понимаю x2- это х в квадрате ,а х4 - х в четвёртой степени  

Program z1;

Uses Crt;

var x:integer;

      y:longint;  

begin

     clrscr;

     write('Введите x:');

     readln(x);

     y:=(1-(x*x)+5*(x*x*x*x))*2; 

     writeln('y=',y);

     readkey;  

 end.