pemograman pascal bilangan ganjil 1-100

Menampilkan bilangan ganjil dari angka 1 s/d 100 

    1. Beri Nilai A = 2.

    2. Untuk  I = 1 sampai 100 lakuka 

        2.1  Cetak Nilai A

        2.2 Jika A mod 2 = 1 , maka nilai A = bilangan ganjil

uses crt;

var I,A: integer;

begin

 A:=1;

 clrscr;

     for I:= 1 to 100 do

     begin

     if I mod 2= 1 then

     write(I:5);

   end;

     Readln;

 end.