(( для заданных с клавиатуры значений переменных x и n вычислить y = -x + 4x - 9x + - 81 x.. (программирование циклических алгоритмов с заданным числом повторений в pascal abc)

Var
  sgn,i:integer;
  X,Y:real;
begin
  Write('Введите Х: '); Read(X);
  Y:=0; sgn:=-1;
  for i:=1 to 9 do
  begin
    Y:=Y+sgn*sqr(i)*X;
    sgn:=-sgn
  end;
  Writeln('Y=',Y)
end.

Тестовое решение:
Введите Х: 3.184
Y=-143.28