Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn

uses crt;
var n,i,s,d:longint; a:array[1..100]of longint;
begin
clrscr;
   readln(n);
   for i:=1 to n do
      begin
         readln(a[i]);
         if (a[i] mod 2=1) then inc(s,a[i]) else inc(d);
      end;
   write('Day so: ');
   for i:=1 to n do write(a[i],' '); writeln;
   writeln('Tong le: ',s);
   writeln('Co ',d,' so chan'); 
readln;
end.

uses crt;

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

i, n, s, d : integer;

begin

clrscr;

write('Nhap n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do

    begin

        read(A[i]);

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

        else s := s + A[i];

    end;

write('Day vua nhap : ');

for i := 1 to n do write(A[i],' ');

writeln; writeln('Tong so le = ', s);

writeln('So luong so chan = ', d);

readln

end.