Lon hon k

uses crt;
type mang=array[1..255] of byte;
var
    i,n,ichan,ile,ilon8,k, ilonk: byte;
    a, b: mang;
begin
    clrscr;
    repeat
        write('n= ');
        readln(n);
    until ((n>0) and (n<=100));
    for i:=1 to n do
        begin
            write('a[',i,']= ');
            readln(a[i]);
        end;
    ichan=0;
    ile=0;
    ilon8=0;
    for i:=1 to n do
        begin
            if (a[i] mod 2 = 0)
                ichan = ichan + 1
            else
                ile = ile + 1;
            if (a[i] >= 8)
                ilon8 = ilon8 + 1;
        end;
    writeln("So phan tu chan: ", ichan);
    writeln("So phan tu le: ", ile);
    writeln("So phan tu >=8: ", ilon8);

    write('k= ');
    readln(k);
    ilonk = 0;
    writeln('Danh sach phan tu lon hon k: ');
    for i:=1 to n do
        begin
            if (a[i] >= k)
                begin
                    ilonk = ilonk + 1;
                    writeln('a[',i,'] =', a[i]);
                end;
        end;
    writeln('So phan tu lon hon k la ',ilonk);
    readln;
end.