дано 1 - 10,найти сумму произведения и кол во кратных 3. Должно в ответе получить 18,162,3 помогите пожалуйста.

В диапазоне от 1 до 10 кратные 3 это: 3, 6, 9

3 + 6 + 9 = 18

3 * 6 * 9 = 162

Таких чисел 3, как легко посчитать

var i,s,p,k: integer;

begin

p:=1;

for i:=1 to 10 do

if i mod 3 = 0 then

begin

s:=s+i;

p:=p*i;

k:=k+1

end;

writeln ('Сумма кратных 3: ',s);

writeln ('Произведение кратных 3: ',p);

writeln ('Кол-во кратных 3: ',k);

end.