Дана формула (2*x+a)/(x*x*x-2*x*x-x+2), х принадлежит [-4,5], с шагом х=1- Pascal(Паскаль)

program Pr3;

uses crt;

var
  a, x, y: real;

Begin
  Writeln('Vvedite a');
  readln(a);
  x := -4;
  while x <= 5 do
  begin
    if x * x * x - 2 * x * x - x + 2 <> 0 then
    begin
      y := (2 * x + a) / (x * x * x - 2 * x * x - x + 2);
      Writeln('x=', x, ' y= ', y:6:2);
    end
    else
      Writeln('Znachenie= ', x, ' ne naideno');
    x := x + 1;
  end;

End.