Вот что сам написал
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.
Но правильные ответы не получаются, подскажите что делаю не так?