Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  DANI
Language: C/C++
Code:
program membuat_prosedur; 
uses crt; 
var 
   p,1 : integer; 

procedure luas_persegi; 
var 
   luas: integer; 
begin 
   write('Input panjang : '); readln(p); 
   write('Input lebar : '); readln(l); 
   luas := P * l; 
   writeln('luasnya ', luas); 
end; 

begin 
 clrscr; 
   luas_persegi; 
 readln; 
end.     
Comments: