Cho dãy số 1,2,3,…,100( ví dụ) Đưa ra màn hình các số lẻ của dãy số

program cac_so_le;

uses crt;

var i:byte;

begin

     clrscr;

     write(‘Cac so le tu 1 den 100 la: ‘);

     for i:=1 to 100 do

          if i mod 2=1 then write(i,’ ‘);

     readln;

end.