Написать задачу по информатике

найти сумму количество и произведение кратных 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.