uses crt;

var a: array[1..100] of integer;

i,d,n,dd,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

d:=0;

dd:=0;

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln(a[i]);

if a[i] mod 2=0 then d:=d+1;

if (a[i]<=50) and (a[i]>=1) then dd:=dd+1;

s:=s+dd;

end;

writeln ('Co ',d,' so chan');

writeln ('Co ',dd,' so tu 1-50');

writeln ('Tong cac phan tu la: ',s);

readln;

end.

program Hello;
uses crt;
var c,l,i,n,a,d,S : integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
c:=0;
d:=0;
S:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(a);
S:= S + a;
if a mod 2 = 0 then c:=c+1 ;
if a >1 then 
 begin
 if a <=50 then d:=d+1;
  end;


end;
writeln('Day co ',c,' so chan ');
writeln('co ',d,' so tu 1 den 50');
writeln('tong cac so la ',S);
readln;
end.