Помогитеееее срочно,я скопировал решение задачи у человека и отправил преподу,после этого он спросил:

-Для чего нужна переменная d

Решение задачи выглядит вот так:

program notmassiv;
uses crt; 
var a,b,c,d,e:Integer; 
begin 
clrscr; 
write('a:=');readln(a); 
write('Удалить цифру: ');readln(e); 
c:=1;d:=1; 
while a>0 do begin 
if a mod 10<>i then begin 
inc(b,(a mod 10)*c); 
c:=c*10; 
end; 
a:=a div 10; 
end; 
writeln(b); 
end. 

объясните пожалуйста!!=))