Помогите пожалуйста с задачей по Паскалю!

Найти сумму и произведение чисел от A до B, которые делятся на C. Если таких чисел нет - сказать об этом.

что такое d &

Если чисел, соответствующих условию не будет, d = 0

VarA,B,C,S,P,d:integer;BeginS:=0;P:=1;d:=0;Write('A = ');Read(A);Write('B = ');Read(B);Write('C = ');Read(C);For var i:= A to B do   if i mod C = 0 then   Begin   S:=S+i;   P:=P*i;   d:=1;   End;if d = 1 then Write('S = ',S,' P = ',P)else Write('Таких чисел нет');End.