Lập trình nhập số nguyên N với N>10. đếm và đưa ra màn hình trong phạm vi từ 1 đến N. Có bao nhiêu số chẵn và tính tổng các số lẻ

Program BTT;
Uses crt;
Var n,i,d,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                If i mod 2 = 0 then inc(d);
                If i mod 2 = 1 then s:=s+i;
        End;

        Writeln('Co ',d,' so chan');
        Write('Tong cac so le: ',s);
        Readln
End.

uses crt;

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

i, n, s, dem : integer;

begin

clrscr;

write('nhap so luong phan tu trong day: ');

readln(n);

s := 0;dem := 0;

if n > 10 then 

begin

for i := 1 to n do 

begin 

write('nhap phan tu thu ', i ,' : ');

readln(a[i]);

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

else s := s + a[i];

end;

end;

writeln('tong so le : ', s );

writeln('co ', dem ,' phan tu chan');

readln

end.