Mình làm trên máy bạn xem nhé.

while ... do

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint; 
begin
clrscr;
   write('Nhap so phan tu cua day: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);  
      end; 
   i:=0;
   while i<n do 
      begin
         inc(i);
         if a[i] mod 2=1 then inc(s,a[i]);  
      end; 
   writeln(s);
readln
end.

repeat...until

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint; 
begin
clrscr;
   write('Nhap so phan tu cua day: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);  
      end; 
   i:=0;
   repeat 
      inc(i);
      if a[i] mod 2=1 then inc(s,a[i]);  
   until i=n;
   writeln(s);
readln
end.