За 2 программы мог бы и побольше пкт накинуть...
1)
Program 1z;
Var A: array [1..100] of Integer; N, i: Byte; sa, t: Real;
Begin
Readln (N);
For i:= 1 to N do
Begin
Readln (A[i]);
If A[i] mod 3 = 0 then
Begin
sa:=sa+A[i];
t:=t+1;
End;
End;
sa:=sa/k;
Writeln (sa);
Readln;
End.

2)

Program 2z;
Var A, B: array [1..100] of Integer; i, s, N: Byte;
Begin
Readln (N);
For i:=1 to N do
Begin
Readln (A[i]);
If A[i] mod 7 = 0 then
Begin
s:=s+1;
B[s]:=A[i];
Writeln (B[s]);
End;
End;
End.