Написать задачу по информатике найти сумму количество и произведение кратных 5 .где 1 меньше =x меньше =100

var a,b,c,d:integer; begin b:=0; c:=0; d:=1; for a:=1 to 100 do begin if (a mod 5 = 0) then b:=b+1; if (a mod 5 = 0) then c:=a+c; if (a mod 5 = 0) then d:=a*d; end; writeln('количество чисел делящихся на 5 ==> ',b); writeln('сумма чисел делящихся на 5 ==> ',c); writeln('произведение чисел делящихся на 5 ==> ',d); end.