помогите с прогой по паскалю

Question

я сижу самостоятельно учусь работать в паскале вот условие задачи: 
Трижды протабулировать функцию 
f:=(2*x+a)/(x*x*x-2*(sqr(x))-x+2) 
на интервале x∈[−4; 5], Δx =1, указав значения 
аргумента, при которых функцию нельзя вычислить. 
у меня проблема в том что я не могу указать значения аргумента при которых функцию вычислить нельзя вот мой програмный код подскажите как его поправить пожалуйста 
program lab; 
 var 
 a,x,f,x0:real; 
 N,k:integer; 
 begin 
 cls; 
 write('введите число a'); 
 read(a); 
 x0:=-4; 
 N:=trunc((5-x0)/1); 
 for k:=0 to N do 
 begin 
 x:=x0+1*k; 
 f:=(2*x+a)/(x*x*x-2*(sqr(x))-x+2); 
 write('f(',x:8:2,')=',f:8:3); 
 if (x*x*x-2*(sqr(x))-x+2)=0 then 
 writeln('деление на ноль невозможно',x:8:2); 
 end; 
 end.

я переставил проверку знаменателя перед вычислением функции а что мне сделать что бы он не выдавал ошибку вещественного деления на ноль на пример я ввожу значение а=3

Елена Рогова · Accepted Answer

проверку на равенство знаменателя нулю поставь перед вычислением функции, потом увеличиваем х и считаем дальше

Елена · Answer

var 
 y :real; 
 x : integer; 
begin 
 write('введите число a = '); readLN(a); 
 x:=-4; 
 repeat 
 Write('f(', x, ') = '); 
 y := x*x*x - 2*x*x - x + 2; 
 if abs(y) < 0.00001 then 
 WriteLn('не существует') 
 else 
 WriteLn((2*x + a) / y:0:5); 
 Inc(x); 
 until x > 5; 
end.