Program Menghitung Luas "pascal" prosedure

Program dibawah ini program menghitung luas persegi panjang dengan mengunakan prosedur yang mengunakan parameter masukan dan parameter keluaran..

PROGRAM KETIGA;
USES CRT;
VAR
P,L, LUAS : INTEGER;
PROCEDURE HITUNGLUAS(A,B : INTEGER; VAR C : INTEGER);
BEGIN
     WRITELN('=====================');
     C := A*B;
     END;
     BEGIN
     CLRSCR;
     WRITELN('=====================');
     WRITELN('LUAS PERSEGI PANJANG');
     WRITELN('---------------------');
     WRITE('MASUKAN PANJANG : '); READLN(P);
     WRITE('MASUKAN LEBAR   : '); READLN(L);
     HITUNGLUAS(P,L,LUAS);
     WRITELN('HASIL LUAS      : ', LUAS);
     READKEY;
END.