viết chương trình nhập n dãy số và in ra tổng các số lẻ trong dãy số vừa nhập

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        For i:=1 to n do
                If A[i] mod 2 = 1 then s:=s+A[i];

        Write('Tong: ',s);
        Readln
End.

Program Tinhtongsole;

Uses crt;

Var     i,n,tong:integer;

         M:array[1..100] of integer;
    
Begin

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

       for i:=1 to n do

       begin
            write('M[',i,']'); readln(M[i]);

       end;

    tong:=0;

    for i:=1 to n do

      if M[i] mod 2 =1 then  

     tong:=tong+M[i];

    write('Tong cac so le la: ',tong);

    readln

end.