Thuật toán:

B1. Nhập n và dãy a.

B2. i←0; 

B3. i←i+1;

B4. Nếu a[i] mod 3=0 (a[i] chia hết cho 3) thì xuất a[i];

B5. Nếu i=n thì kết thúc, ngược lại qua B3.

Chương trình:

uses crt;
var i,n:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap a',i,': ');readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 3=0 then write(a[i],' ');
readln
end.

Mình dùng cách 1 nhé

B1: nhập $M$

B2: $i←1,i>m$

B3: nhập $a[i]$

B4: $i←i+1$

B5: nếu $i>m$ thì đến B5 ngược lại quay lại B2

B5: $i>m$

B6: nếu $a[i]\mod 3←0$ thì xuất $a[i]$
      ngược lại không làm gì cả

B7: $i←i+1$

B8: nếu $i>m$ thì đến B9 ngược lại quay lại B5

B9: kết thúc chương trình