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.