fork(6) download
copy 
  1. program Balok;
  2. var
  3. 	panjang,lebar,tinggi : integer;	
  4. 	procedure volume; 		
  5. 	var	
  6. 		v: integer;
  7. 	Begin 
  8. 		v := panjang * lebar * tinggi ;
  9. 		writeln(v); 
  10. 	end;
  11. 	procedure luas;
  12. 	var
  13. 		l: integer;
  14. 	Begin
  15. 		l := (2*(panjang+lebar)) + (2*(panjang+tinggi)) + (2*(tinggi+lebar)); 		writeln(l);
  16. 	end;
  17. Begin
  18. 	panjang :=10; lebar := 10; tinggi := 10;  
  19. 	volume; 
  20. 	luas;
  21. end.
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1000
120
https://ideone.com/fQ3KV2
language:
Pascal (gpc 20070904)
created:
5 days 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!