Дано действительное число x. Не пользуясь никакими другими арифметическими опера-циями, кроме умножения, сложения и вычитания, вычислить 2x^4 – 3x^3 + 4x^2 – 5x +6- Pascal(Паскаль)

var
   x,v,rez:real;
   i,j:integer;
begin
write('Vvedite x=');
readln(x);
i:=4;
while (i>=1) do
 begin
  v:=1;
  for j:=1 to i do
   v:=v*x;
  case i of
  4: rez:=rez+2*v;
  3: rez:=rez-3*v;
  2: rez:=rez+4*v;
  1: rez:=rez-5*v;
  end;
  dec(i);
 end;
rez:=rez+6;
writeln('Result: ',rez);
readln
end.