fork download
copy 
  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
comments (?)
stdin
copy 
85
stdout
copy 
PROGRAM KELULUSAN
=================
Masukkan Nilai : ANDA DINYATAKAN LULUS
https://ideone.com/4iJiRL
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!