fork download
  1. program Kelulusan;
  2.  
  3. var
  4. nilai : integer;
  5.  
  6. begin
  7. writeln('PROGRAM KELULUSAN');
  8. writeln('=================');
  9.  
  10. write('Masukkan Nilai : ');
  11. readln(nilai);
  12.  
  13. if nilai >= 75 then
  14. writeln('ANDA DINYATAKAN LULUS')
  15. else
  16. writeln('ANDA DINYATAKAN TIDAK LULUS');
  17.  
  18. end.
Success #stdin #stdout 0s 5320KB
stdin
85
stdout
PROGRAM KELULUSAN
=================
Masukkan Nilai : ANDA DINYATAKAN LULUS