contoh program 8

uses crt;

var

             nilai: integer;

begin

clrscr;

             write('Masukkan Nilai Mahasiswa    : '); readln(nilai);

             

             while (nilai < 0) or (nilai > 100) do

             begin

                         write('Data salah, Silahkan Ulangi lagi    : '); readln(nilai);

             end;

             writeln;

             

             if (nilai >= 60) then

                         write('Lulus!')

             else

                         write('Coba Lagi Tahun Depan'); readln;

                         

end.