Contoh Pascal Menentukan Lulus Dan Tidak Lulus

program menentukan_lulus_tidaklulus;
uses crt;
var
nm,ket: string;
nilai : integer;
begin
TextBackground(95);
textcolor(26) ;

   clrscr;
   writeln('Daftar Nilaimurid');readln;
   write('Nama : ');readln(nm);
   write('Nilai: ');readln(nilai);
   if nilai >= 75 then
   begin
     ket:='Lulus';
   end
   else
     begin
        ket:='Tidak Lulus';
    end;
  write('Keterangan : ' ,ket);readln;
end.
   begin
     ket:='Lulus';
   end
   else
     begin
        ket:='Tidak Lulus';
    end;
  write('Keterangan : ' ,ket);readln;
end.