Lặp với số lần biết trước:

a)

uses crt;
var i:longint;
begin
clrscr;
   for i:=1 to 100 do
      if i mod 2=1 then write(i,' ');
readln
end.

b)

uses crt;
var i:longint;
begin
clrscr;
   for i:=100 downto 1 do
      if i mod 2=1 then write(i,' ');
readln
end.

Lặp với số lần chưa biết trước:

a)

uses crt;
var i:longint;
begin
clrscr;
   i:=0;
   while i<100 do
      begin
         i:=i+1;
         if i mod 2=1 then writeln(i);
      end;
readln
end.

b)

uses crt;
var i:longint;
begin
clrscr;
   i:=101;
   while i>1 do
      begin
         i:=i-1;
         if i mod 2=1 then writeln(i);
      end;
readln
end.

- Lặp với số lần biết trước :

a) 

uses crt;

var i : integer;

begin

    clrscr;

    for i := 0 to 98 do

        if i mod 2 = 0 then write(i + 1,' ');

    readln

end.

b)

uses crt;

var i : integer;

begin

    clrscr;

    for i := 98 downto 0 do

        if i mod 2 = 0 then write(i + 1,' ');

    readln

end.

- Lặp với số lần chưa biết trước :

a)

uses crt;

var i : integer;

begin

    clrscr;

    i := 1;

    while i <= 99 do

        begin

            write(i,' ');

            i := i + 2;

        end;

    readln

end.

b)

uses crt;

var i : integer;

begin

    clrscr;

    i := 99;

    while i >= 1 do

        begin

            write(i,' ');

            i := i - 2;

        end;

    readln

end.