найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

Program n1;Uses CRT;Var a,b,c,d,s,i: integer;begin For i:=1000 to 9999 do begina:=i div 1000;b:=i mod 1000 div 100;c:=i mod 100 div 10;d:=i mod 10;If (a=5)or(b=5)or(c=5)or(d=5) then s:=s+i; end;writeln('summa ravna ',s);readlnend.