viết chương trình nhập từ bàn phím các phần tử nguyên của mảng một chiều thực hiện đưa ra màn hình tổng các phần tử chẵn và phần tử lẻ

=))

program Project1;

var a:array [1..100] of integer;
n, i: integer;
le: integer;
begin
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
le:=0;
for i:=1 to n do
begin
if (A[i] mod 2 <> 0) then
le:=le+A[i];
end;
writeln('Tong cac phan tu le la ', le);
readln;
end.

uses crt;
var A:array[1..1000] of integer;
    i,n,tle,tchan:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 0 then tchan:=tchan+A[i]
      else tle:=tle+A[i];
   end;
   write('Tong cac phan tu chan la: ',tchan);
   writeln;
   write('Tong cac phan tu le la: ',tle);
   readln
end.