viết chương trình nhập vào dãy số với độ dài nhập từ bàn phím là tính trung bình và in ra các số chẵn của dãy số

program oken;
uses crt;
var a: array [1..100] of longint;
    i,n,sum:longint;
begin
        clrscr;
        write('Nhap so luong phan tu cua mang: '); readln(n);
        sum:=0;
        for i:=1 to n do
                begin
                        write('A[i]: '); readln(a[i]);
                        sum:=sum+a[i];
                end;
        writeln('TBC cua day so: ',sum/n:0:3);
        write('cac so chan cua day so: ');
        for i:=1 to n do
                if a[i] mod 2=0 then write(a[i],' ');
        readln;
end.