fork download
copy 
  1. program luaslingkaran;
  2.  
  3. var
  4.     r,luas:real;
  5. begin
  6. write('masukan jari-jari lingkaran:');
  7. readln(r);
  8.  
  9. luas :=3.14*r*r;
  10.  
  11. writeln('luas lingkaran adalah:', luas:0:2);
  12.  
  13.   readln;
  14. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
15
stdout
copy 
masukan jari-jari lingkaran:luas lingkaran adalah:706.50
https://ideone.com/T3fmhw
language:
Pascal (fpc 3.0.4)
created:
23 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!