Найти значения функции Опции

[Amir]

Дана функция A-((X-C)^2/(B+1)) надо высчитать и напечатать значения этой функции для последовательных значений X=C, C+(B+1), C+2(B+1),C+3(b+1) и т.д., до тех пор, пока сумма Y+A+5 не станет отрицательной. Числа А, В, С вводятся с клавиатуры.
Вот что сам написал

program z3;
var x,w:real;
    a,b,c,d,i,z:integer;
    begin
    writeln('введите 3 последнии цифры зачётки через пробел и нажмите enter ');
    readln(a,b,c);
     i:=0;
     d:=b+1;
     x:=c;
     while w+a+5>0 do
      begin
      x:=c+i*b+i*1;
      i:=i+1;
       w:=a-x*x/d-c*x/d-c*x/d-c*c/d;
       writeln(w);
       writeln('Последнии цифры зачётки',a,b,c);
       end;
       end.

Но правильные ответы не получаются, подскажите что делаю не так?