Program in_tong_va_dem;
uses crt;
var A:array[1..150] of integer;
    i,s,n,d:integer;
begin
    clrscr;
    s:=0;
    writeln('so phan tu la: ');readln(n);
    for i:= 1 to n do
        begin
        writeln('nhap ptu thu ',i,': ');
        readln(A[i]);
        end;
    write('cac ptu la so le, chia het cho 7 la: ');
    for i:= 1 to n do
        if (A[i] mod 2 = 1) or (A[i] mod 7 = 0) then
            begin
            write(A[i],' ');
            d:=d+1;
            s:=s+A[i];
            end;
    writeln;
    writeln('co ',d,' ptu la so le hoac cac ptu chi het cho 7');
    writeln('Tong la:',s);
    readln;
end.

Program Hotboy;

Uses crt;

Var A:array[1..150] of integer;

I,n,S,dem : longint;

Begin

Clrscr ;

S:=0;

Write('nhap so n'); readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

S:=S+ A[i] ; 

Writeln('Tong la',S); 

For i:=1 to n do

Begin

If (A[i] mod 2<>0) or (A[i] mod 7=0) then inc(dem); 

Writeln(' co so phan tu le hoac chia het la 7 la',dem);

End;

Readln

End.