Помогите пожалуйста решить задачу в Турбо Паскале...
Дано натуральное число n, целые числа а1,а2,а3 ...аn вычислить сумму чисел массива ,кратных 4 .

Заполнение с клавиатуры:

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Write(n = );ReadLn(n);
Write(Введите a1..a,n,: );
S:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if (A[i] mod 4 = 0) then S:=S+A[i];
    End;
WriteLn(S = ,S);
End.



Заполнение случайными числами:

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write(n = );
ReadLn(n);
Write(a1..a,n,: );
S:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(A[i], );
    if (A[i] mod 4 = 0) then S:=S+A[i];
    End;
WriteLn;
WriteLn(S = ,S);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.