Program Menentukan_kelulusan; ( Algoritma dan Pemograman )

Program Menentukan_kelulusan;
uses crt;

var
     nilai: byte;
     ket : string;

begin
clrscr;
     write('masukkan sebuah nilai : '); readln(nilai);
     ket:='Tidak Lulus';
     if nilai >=60
      then
          ket := 'Lulus';
     write('Nilai ',nilai,' ',ket);
     readln;
end.

end.