Menampilkan bilangan ganjil dari angka 1 s/d 100

Untuk menampilkan bilangan ganjil dari angka 1 sampai dengan angka 100 algoritmanya adalah sebagai berikut : 

Bilangan ganjil dari 1 sampai 100 = 1,3,5,7,9,…………,99

Catatan : bilangan apa saja yag dimod2=1 adalah bilangan ganjil

Untuk nilai I = 1 to 100 lakukan

      Jika nilai Imod2 = 1 maka

                        Cetak nilai

      Untuk programnya dalam bahasa pascal adalah :

uses crt;

var I: integer;

begin

   clrscr;

  for I:= 1 to 100 do

  begin

   if I mod 2= 1 then

       write(I:5);

end;

  Readln;

end.

        Hasilnya :