Uses crt;
Var A:array[1..10000] of longint;
    N,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;
        s:=0;
        For i:=1 to n do
                If A[i]=8 then inc(s);
        Write('Co ',s,' gia tri bang 8');
        Readln
End.

- Input: Dãy A gồm N số nguyên a₁, a₂..., a_N ;

- Output: Các số hạng trong dãy A có giá trị bằng 8.

Bước 1.  Nhập N, các số hạng a₁, a₂..., a_N;

Bước 2.  i<- k, k<- 0;

Bước 3.  Nếu a_i= 0 thì k <- k+1;

Bước 4.  i <- i+1;

Bước 5:  Nếu i > N thì đưa ra giá trị k, rồi kết thúc;

Bước 6.  Quay lại bước 3.