Program Pascal Menampilkan Bilangan Ganjil dari 1 sampai n Deret menggunakan If Serta Perulangan While end While

Berikut adalah salah satu contoh program pascal untuk Menampilkan Bilangan Ganjil dari 1 sampai n Deret menggunakan If Serta Perulangan While end While

1. Programnya

program ganjil;
uses crt;
var
   i,n  :integer;
begin
     clrscr;
     Write('batas :');readln(n);
     i:=1;
     while i<=n*2 do
     begin
          Write(i,',');
          i:=i+2;
     end;
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program