Cho mảng B một chiều gồm N phần tử. Viết chrơng trình nhập giá trị vào cho mảng và in ra màn hình các phân tử có giá trị là lẻ của mảng.Nếu không có thì in ra màn hình thông báo

uses crt;
var B:array[1..10000] of integer;
    n,i:integer;
    dem:boolean;
begin
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(B[i]);
   end;
   for i:=1 to n do
   if B[i] mod 2 <> 0 then
   begin
      dem:=true;
      write(B[i]:2);
   end;
   if dem<>true then write('Khong co phan tu le');
   readln
end.

program oken;
uses crt;
var b: array [1..1000] of integer;
    i,n,dem:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('B[',i,']: '); readln(b[i]);
                        if b[i] mod 2=1 then
                                dem:=dem+1;
                end;
        if dem<>0 then
                begin
                        write('day cac gi tri le trong mang: ');
                        for i:=1 to n do
                                if b[i] mod 2 =1 then
                                        write(b[i],' ');
                end
        else
                writeln('khong co gia tri le nao trong mang.');
        readln;
end.