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

готово

спасибо большое

var a,b,c,d:integer;beginb:=0;c:=0;d:=1;for a:=1 to 100 do beginif (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.