Как в задаче указать КРАТНЫХ №3?и еще вывести номера элементов?

[ketik]

Дан массив P(N), состоящий из N целых чисел. Определить сумму элементов массива, кратных трем. Вывести номера этих элементов.

[alex_fcsm]

sum:=0;
for i:=1 to n do
if p[i] mod 3=0 then begin 
                             sum:=sum+p[i];
                             write(i,';');
                            end;