Tin học Kiểu mảng.

Var
a:array[1..100] of integer;
i,n,d,d1,t:integer;
begin
readln(n);
For i:=1 to n do readln(a[i]);
write('10 gia ti dau la:');
For i:=1 to 10 do write(a[i]);
t:=0;writeln;
For i:=1 to n do
 if a[i] mod 2 =0 then t:=t+a[i];
writeln('tong cac pt chan la:',t);
d:=0;d1:=0;
For i:=1 to n do
 if a[i] mod 2 =0 then d:=d+1
else d1:=d1+1;
writeln('so cac pt le la:',d1);
write('so cac pt chan la:'d);
readln
end.