fork download
copy 
  1. program Kelulusan;
  2.  
  3. var
  4.     nilai: integer;
  5.  
  6. begin
  7.     writeln('Program Kelulusan');
  8.     write('Masukkan nilai: ');
  9.     readln(nilai);
  10.  
  11.     if nilai >= 75 then
  12.         writeln('LULUS')
  13.     else
  14.         writeln('TIDAK LULUS');
  15. end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
85
stdout
copy 
Program Kelulusan
Masukkan nilai: LULUS
https://ideone.com/nuNFCR
language:
Pascal (gpc 20070904)
created:
15 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!