menentukan grade mahasisiwa

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('------------------');
  write('Masukkan sebuah Nilai : ');readln(nilai);
  if (nilai<0) or (nilai>100) then
     writeln('Nilai yang dimasukkan dari [1..100]')
  else
  if nilai >= 60 then
  begin
    ket:='LULUS';
    ucapan:='Selamat Yaaaa';
  end else
  begin
    ket:='GAGAL';
    ucapan:='SABAR YAAAA';
  end;
  writeln;
  writeln('Nilai Anda ',nilai,' maka ',ket);
  writeln('Kami Mengucapkan ',ucapan);
  writeln('-------------------------------');
  write('Mau Coba Lagi?[Y/T] : ');readln(ulang);
  clrscr;
 end;
 writeln('TERIMA KASIH');
end.