fork download
copy 
  1. program jesika_amanda;
  2.  
  3. var
  4.     nama : string;
  5.     nilai : integer;
  6.  
  7. begin
  8.     writeln('PROGRAM KELULUSAN SISWA');
  9.     writeln('========================');
  10.  
  11.     writeln('Nama Siswa : ', nama);
  12.     writeln('Nilai : ', nilai);
  13.  
  14.     if nilai >= 75 then
  15.         writeln(nama, ' DINYATAKAN LULUS')
  16.     else
  17.         writeln(nama, ' DINYATAKAN TIDAK LULUS');
  18. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
90
stdout
copy 
PROGRAM KELULUSAN SISWA
========================
Nama Siswa : 
Nilai : 0
 DINYATAKAN TIDAK LULUS
https://ideone.com/D0kiou
language:
Pascal (gpc 20070904)
created:
14 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!