Viết chương trình nhập mảng số nguyên A1,A2, ....,An (n<=150). Tính Tống, Đếm và in các phần tử là số lẻ hoặc chia hết cho 7. In giá trị Tổng, Đếm. giúp mình với mình sẽ cho 5 sao nếu làm được.

Program BTH;
Uses crt;
Var a:array[1..150] of longint;
s,n,i:longint;
Begin
        Clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap so thu ',i,' : ');readln(a[i]);
        end;
        Writeln('So chia het cho 7 la: ');
        For i:=1 to n do
        Begin
                If a[i] mod 7=0 then writeln(a[i]);
                s:=s+a[i];
        end;
        writeln('So le xuat hien trong day la: ');
        For i:=1 to n do
        Begin
                If a[i] mod 2=1 then writeln(a[i]);
        end;
        Writeln('Tong day so tren la: ',s);

        readln;
End.