uses crt;
var i,n,s,c,d:integer;
a:array[1..10] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
s:=0;c:=0;d:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2 = 0 then c:=c+1;
 if (a[i] >=1) and (a[i]<=50) then d:=d+1;
 s:=s+a[i];
end;
writeln('day so vua nhap so ',c,' so chan');
writeln('day so vua nhap so ',d,' so tu 1 den 50');
write('tong=',s);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
var a: array [1..1000] of integer;
    i,n,d1,d2,s: integer;
begin
    clrscr;
    write('nhap so luong phan tu: '); readln(n);
    for i:=1 to n do
        begin
            write('nhap so thu ',i,': ');
            readln(a[i]);
            s:=s+a[i];
            if a[i] mod 2 = 0 then
                d1:=d1+1;
            if (a[i]>=1) and (a[i]<=50) then
                d2:=d2+1;
        end;
    writeln('day vua nhap co ',d1,' so chan');
    writeln('day vua nhap co ',d2,' so trong khoang 1 toi 50');
    write('tong day tren la: ',s);
    readln;
end.