a, Khai báo một mảng các phần tử gồm 100 số nguyên 
b, Nhập các phần tử của mảng từ bàn phím 
c, Hiển thị phần tử lớn nhất, bé nhất trong mảng 
d, In ra màn hình các phần tử là số nguyên tố/số chẵn/số lẻ trong mảng  
e, Sắp xếp mảng theo thứ tự tăng dần/giảm dần

uses crt;
var a: array[1..100] of integer;
    i,max,min,d,j: integer;
begin
clrscr;
    for i:=1 to 100 do readln(a[i]);
    max:=a[1]; min:=a[1];
    for i:=1 to 100 do begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('MAX=',max,' | MIN=',min);
    write('So nguyen to: ');
    for i:=1 to 100 do begin
        d:=0;
        for j:=1 to a[i] do if a[i] mod j=0 then d:=d+1;
        if d=2 then write(a[i],' ');
    end;
    writeln;
    write('Cac so chan: ')
    for i:=1 to 100 do if a[i] mod 2=0 then write(a[i],' ');
    writeln;
    write('Cac so le: ')
    for i:=1 to 100 do if a[i] mod 2<>0 then write(a[i],' ');
    writeln;
    write('Mang tang dan: ');
    for i:=1 to 100 do
        for j:=1 to i do
            if a[i]<a[j] then begin
                d:=a[i];
                a[i]:=a[j];
                a[j]:=d;
            end;
    for i:=1 to 100 do write(a[i],' ');
    writeln;
    write('Mang giam dan: ');
    for i:=1 to 100 do
        for j:=1 to i do
            if a[i]>a[j] then begin
                d:=a[i];
                a[i]:=a[j];
                a[j]:=d;
            end;
    for i:=1 to 100 do write(a[i],' ');
    readln
end.