Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  program pascal
Language: PASCAL
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: