Nhập mãng n phần tử - nhập mãng - xuất mãng - đếm xe trong mãng có bao nhiêu phần tử lẻ lớn hơn 5

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If (A[i]>5) and (A[i] mod 2 = 1) then inc(d);
        End;
        For i:=1 to n do Write(A[i],' ');
        Writeln;
        Write(d);
        Readln
End.

uses crt;
var a:array[1..100]of longint;
i,d,n:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
if (a[i] mod 2=1) and (a[i]>5) then d:=d+1;
end;
writeln('co ',d,' phan tu le lon hon 5');
for i:=1 to n do
writeln(a[i]);
readln
end.