Определить сумму элементов массива, кратных трем [Паскаль]

[ketik]

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

Program Vvod;
 Var N, I : Integer;
     A : Array  Of Integer;
Begin
  Write('Введите количество элементов массива ');  ReadLn(N);
sum:=0;
for i:=1 to n do
if A[i] mod 3=0 then begin 
                             sum:=sum+A[i];
                             write(i,';');
end.

[Stilet]

end; забыла перед последним end.-ом

[delTh]

Как то так?

PROGRAM T;
uses crt;
Const N=20;
var i: byte;
    sum: longInt;
    P: array[1..n] of Integer;
Begin
ClrScr;
 Write('Массив: ');
 for i:=1 to n do begin
  P[i]:=random(20);
  Write(p[i]:3);
 end;
 WriteLn;
 WriteLn;
 Write('Номера элементов кратных трем: ');
 sum:=0;
 For i:=1 to n do
  If P[i] mod 3 = 0 then begin
     sum:= sum+P[i];
     Write(i,' ');
  end;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну, я бы ещё в конце рекомендовал добавить
собственно вывод подсчитанной суммы:

 Writeln('Сумма равна = ',sum);
 readln;