fork download
copy 
  1. program KelulusanSiswa;
  2.  
  3. var
  4.   nama : string;
  5.   nilai : integer;
  6.  
  7. begin
  8.   write('Nama : ');
  9.   readln(nama);
  10.  
  11.   write('Nilai : ');
  12.   readln(nilai);
  13.  
  14.   if nilai >= 75 then
  15.     writeln(nama, ' LULUS')
  16.   else
  17.     writeln(nama, ' TIDAK LULUS');
  18. end.
  19.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Nama : Nilai :  TIDAK LULUS
https://ideone.com/0ylVdO
language:
Pascal (fpc 3.0.4)
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!