Cara Menampilkan Angka Ganjil Menggunakan Delphi

Sebelumnya kita telah mempelajari bagaimana membuka Error Console pada Delphi. Dan sekarang kita membuat perulangan angka ganjil menggunakan Error Console

Langkah Pertama :

 Ketikkan Script sebagai berikut pada error console kalian 

//Nama Program

program ganjil;

{$APPTYPE CONSOLE}

uses

  SysUtils;

//Sebagai Variable

Var

i,A : integer;

//Perumusan

begin

  I:=1;

  while I<= 10 do

  //Perulangan

  begin

  A:=I*2-1;

  writeln(A);

  I:=I+1;

  end;

  //End Perulangan

  readln;

end.

//End Perumusan

Contoh Program

Hasil Program :