1. Viết chương trình cho phép nhập vào dãy số. Xuất ra kết quả cho biết có bao nhiêu số chia hết cho 3 2. Viết chương trình nhập vào dãy số. Xuất dãy số theo thứ tự từ nhỏ đến lớn. 3. Viết chương trình cho phép tạo ra danh sách gồm họ tên lớp. 4. Thêm vào danh sách Câu 3, 5 bạn.

program Hello;
var n,x,d,i:longint;
begin
    readln(n);
    for i:= 1 to n do
        begin
            read(x);
            if x mod 3 = 0 then
                inc(d);
        end;
    writeln('Co ', d, ' so chia het cho 3.');
end.
========================================

program Hello;
var n,j,d,i:longint;
    a: array[1..100000] of longint;
begin
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    for i:= 1 to n do
        for j:= 1 to n do
            if a[i] < a[j] then 
                begin
                    d:=a[i];
                    a[i]:=a[j];
                    a[j]:=d;
                end;
    for i:= 1 to n do
        write(a[i], ' ');
end.
====================================

program Hello;
var n,i:longint;
    ten,lop: array[1..100000] of string;
begin
    readln(n);
    for i:= 1 to n do
        begin
            writeln(i, '. ');
            readln(ten[i]);
            readln(lop[i]);
        end;
    for i:= 1 to n do
        writeln(i, '. Ten  ', ten[i], ' lop ', lop[i]);
end.