Program menghitung persegi panjang dengan Turbo pascal

uses crt;
var
    P,L,Luas:longint;
begin
    clrscr;
    write('Input Panjang :');readln(P);
    write('Input Laebar :');readln(L);
    Luas :=P*L;
    writeln('Luas Persegi Panjang :',Luas);
    readln;
end.

------------------------------------------------------------------
uses crt;
var
    Panjang,Lebar,Luas :integer;
begin
    clrscr;
    writeln('Program Mengjitung Persegi Panjang');
    writeln('----------------------------------');
    writeln('Input Nilai Panjang : ');readlan(Panjang);
    writeln('Input Nilai Lebar : ');readln(Lebar);

    Luas :=Panjang*Lebar;
    writeln('----------------------------------');
    writeln('Program Latihan Pertama Kaldius');
    writeln('Nilai Luas adalah :',Luas);
    readln;
end.