Contoh Prongam Mengunakan Turbo Pascal

program mahasiwa;
uses wincrt;
var
nilai : integer;
mhs, ket: string;
begin
clrscr;
writeln ('program nilai mahasiswa');
writeln;
write ('masukkan nama mahasiswa : ');
readln (mhs);
write ('masukan nilai mahasiawa : ');
readln(nilai);
ket := 'TIDAK LULUS';
if nilai >=60 then ket:= 'LULUS';
writeln;
writeln ('Nama Mahasiswa = ',mhs,' Status = ',ket);
readln;
end.