Program Menghitung Persegi Panjang di 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.