Program Pascal Menampilkan Bilangan Ganjil 1sampai n Deret menggunakan If serta Perulangan For Next

Program Pascal Menampilkan Bilangan Ganjil 1sampai n Deret menggunakan If serta Perulangan For Next

Berikut adalah contoh Program Pascal Menampilkan Bilangan Ganjil 1sampai n Deret menggunakan If serta Perulangan For Next

1. Program
program Ganjil;
uses crt;
var
   i,n :integer;
begin
     clrscr;
     write('batas=');readln(n);
     for i:=1 to n*2 do
     begin
          if i mod 2=1 then
          Write(i,',');
     end;
     readln;
end.

2. Tampilan Program

3. Hasil Program