Program Menghitung Luas "pascal" prosedure1

Program ini mengunakan prosedure yang mengunakan hanya parameter masukan, dimana program ini untuk menghitung luas persegi panjang.
PROGRAM KEDUA;
USES CRT;
VAR
   P,L : INTEGER;
   A,B : INTEGER;
PROCEDURE HITUNGLUAS(A,B : INTEGER);
BEGIN
     WRITELN('=======================');
     WRITELN('HASIL           : ', A*B);
     END;
     BEGIN
     CLRSCR;
     WRITELN('=======================');
     WRITELN('LUAS PERSEGI PANJANG');
     WRITELN('-----------------------');
     WRITE('MASUKAN PANJANG : '); READLN(P);
     WRITE('MASUKAN LEBAR   : '); READLN(L);
     HITUNGLUAS(P,L);
     READKEY;
END.