Вычислить и напечатать для различных значений x значения выражения y=Σ(x-1)^n /n*n… , где n от 1 до 10. Переменная х изменяется от -3 до 3 с шагом 0,1. Особую точку исключить(х=0)- Pascal(Паскаль)

program noname;

var
  x, y: real;

begin
  x := -3;
  While (x <= 3) do
  Begin
    if (x <> 0) then
    Begin
      y := y + x - 1;
      Writeln(x:4:1, '  ', y:4:1);
    End;
    x := x + 0.1;
  End;
  Readln;

end.