Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    d,t,i,n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        t:=0; d:=0;

        For i:=1 to n do
                If A[i] mod 7 = 0 then
                Begin
                        inc(d);
                        t:=t+A[i];
                End;

        Writeln('Co ',d,' phan tu la so chia het cho 7');
        Write('Tong la: ',t);
        Readln;
End.

$\text{- Tính tổng, đếm số phần tử chia hết cho 7}$

$\text{+ Bước 1 : nhập số n và các số hạng a1, a2, ... , an}$

$\text{+ Bước 2 : j ← 1, s ← 0, c ← 0}$

$\text{+ Bước 3 : nếu j > n thì đưa ra giá trị s và c rồi kết thúc}$

$\text{+ Bước 4 :}$

$\text{+ Bước 4.1 : nếu a[j] mod 7 = 0 thì s ← s + a[j], c ← c + 1}$

$\text{+ Bước 4.2 : j ← j + 1 quay lại bước 3}$