Uncounted LOOP

Contoh :
Menentukan Bulan :
1. while .. do



program case_of;

uses
    wincrt;
var
    bulan:string;
    indeks:byte;
    ulang:char;

begin
  ulang:='Y';
  while (ulang='Y') or (ulang='y') do
  begin
  writeln ('Program Mencetak Nama Bulan');
  writeln('____________________________');
   writeln;
  write('Masukkan no Bulan[1..8] : ');readln(indeks);
case indeks of
     1:bulan:= 'Januari';
     2:bulan:= 'Februari';
     3:bulan:= 'Maret';
     4:bulan:= 'April';
     5:bulan:= 'Mei';
     6:bulan:= 'juni';
     7:bulan:= 'Juli';
     8:bulan:= 'Agustus';
else
writeln('Nama Gak Ada');
end;
    writeln('Bulan ke ',indeks,' Adalah ',bulan);
     writeln;
    write('Masih Ada Data Lagi?[Y/T] : ');readln(ulang);clrscr;
    writeln;
    end;
end.

2. Repeat .. Until


program case_of;

uses
    wincrt;
var
    bulan:string;
    indeks:byte;
    coba:char;

begin
  coba:='T';
  repeat
  writeln ('Program Mencetak Nama Bulan');
  writeln('____________________________');
  write('Masukkan no Bulan[1..8] : ');readln(indeks);
case indeks of
     1:bulan:= 'Januari';
     2:bulan:= 'Februari';
     3:bulan:= 'Maret';
     4:bulan:= 'April';
     5:bulan:= 'Mei';
     6:bulan:= 'juni';
     7:bulan:= 'Juli';
     8:bulan:= 'Agustus';
else
writeln('Nama Gak Ada');
end;

    writeln('Bulan ke ',indeks,' Adalah ',bulan);
    write('Masih Ada Data Lagi?[Y/T] : ');readln(coba);clrscr;
    writeln;
    until (coba='T') or (coba='t')
end.