Найдите сумму s и произведение p целых чисел от 1 до n чисел кратных 3ПОМОГИТЕ…

var n, p, s, i: integer; begin p: =1; write ('Введите n: '); read (n); for i: =1 to n do if i mod 3=0 then begin s: =s+i; p: =p*i; end else p: =0; writeln ('Сумма: ', s, '; произведение: ', p); end.