Viết chương trình pascal nhập vào từ bàn phím một khoảng gồm N(0<N <=100) số nguyên khác 0 tính và in ra màn hình trung bình các số dương không chia hết cho 7

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,dem,s:longint;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        if a[i] mod 7<>0 then
                                begin
                                        s:=s+a[i];
                                        dem:=dem+1;
                                end;
                end;
        writeln('TBC cua cac so khong chia het cho 7 trong mang: ',s/dem:0:3);
        readln;
end.

uses crt;
var a: array [1..100] of integer;
       i,n,d,s:longint;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
if a[i] mod 7<>0 then
begin
s:=s+a[i];
d:=d+1;
end;
end;
writeln('TBC cua cac so khong chia het cho 7 trong mang: ',s/dem:0:3);
readln;
end.