Seleksi Kelulusan

Contoh pemrograman bahasa pascal untuk seleksi kululusan dengan input nilai masukkannya.

program seleksi_kelulusan;
uses wincrt;
var
nilai : real;
ket : string;

begin
ket:='gagal';

write('masukan nilai : ');readln(nilai);
if nilai>=60 then
ket:='lulus';
writeln ('anda di nyatakan ',ket);
end.