Program Menghitung Luas "pascal" function

Program dibawah ini adalah program menghitung luas persegi panjang dengan mengunakan function :

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