giúp em với ạ viết thuật toán :tính tổng các số lẻ trong dãy N a1,a2,–..an

program az;

uses Crt;

var i,n,a : integer;

          S : longint;

begin

clrscr;

S := 0;

Write(‘Nhap n = ‘); readln(n);

For i:=1 to n do 

begin

Write(‘Nhap phan tu thu ‘,i,’ la : ‘); readln(a);

If (a mod 2 <> 0) then S:=S + a;

end;

Write(‘Tong cac so le la : ‘,S);

readln

end.