Uncounteed Loop

Menentukan Kelulusan Nilai
REPEAT ,, UNTIL


program kondisi_if;

uses
    wincrt;

var
   nilai:integer;
   ket,ucapan:string;
   coba:char;

begin
coba:='Y';
repeat
     writeln('Program kondisi IF');
     writeln('__________________');
     writeln;
     write('Masukkan Sebuah Nilai : ');readln(nilai);
     if nilai >= 60 then
     begin
        ket:= 'LULUs';
        ucapan:= 'Selamat Yaaaa';
     end  else
     begin
        ket:= 'GAGAL';
        ucapan:= 'SABAR YAAA';
        end;
        writeln;
        writeln ('Nilai Anda ',nilai,' maka ',ket);
        writeln('kami Mengucapkan ',ucapan);
        writeln;
        write ('Masih Ada Data Lagi?[Y/T] : ');readln(coba);
        writeln;
     until (coba='T') or (coba='t')
end.

WHILE .. DO

program kondisi_if;

uses
    wincrt;

var
   nilai:integer;
   ket,ucapan:string;
   ulang:char;

begin
ulang:='Y';
while (ulang='Y') or (ulang='y') do
begin
     writeln('Program kondisi IF');
     writeln('__________________');
     writeln;
     write('Masukkan Sebuah Nilai : ');readln(nilai);
     if nilai >= 60 then
     begin
        ket:= 'LULUs';
        ucapan:= 'Selamat Yaaaa';
     end  else
     begin
        ket:= 'GAGAL';
        ucapan:= 'SABAR YAAA';
        end;
        writeln;
        writeln ('Nilai Anda ',nilai,' maka ',ket);
        writeln('kami Mengucapkan ',ucapan);
        writeln;
        write ('Masih Ada Data Lagi?[Y/T] : ');readln(ulang);
        end;

end.