viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Tính tổng các số lẻ vừa được nhập vào

program dem;

uses crt;

var n,i,j,S: integer;

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

begin

i:=0;

S:=0;

while(readln(n)) do

begin

 if(n:=0) then break;

 i:=i+1;

 a[i]:=n;

end;

for j:=1 to i do 

begin

 if(a[j] mod 2 <> 0) then S:=S+a[j];

end;

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

readln;

end.

Uses crt;
Var n, d: longint;
Begin
        Clrscr;
        d:=0;
        Repeat
        Write(‘Nhap mot so bat ki: ‘); Readln(n);
        If n mod 2 = 0 then inc(d);
        Until n=0;
        Write(‘Co ‘,d,’ so la so chan’);
        Readln
End.