Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ES-TKJ'2
Language: PASCAL
Code:
program membuat_prosedur;
uses crt;
var
  p,l : integer;

prosedure 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: