code pascal menghitung kkm nilai

program nilai_kkm_matematika;
uses crt;
var
nm,ket: string;
nilai : integer;
begin
   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.