Contoh program menghitung luas persegi panjang dengan Pascal

Program Menghitung_Luas_Persegi_Panjang;
uses crt;
var
p,l, L : Integer
       Write('Masukkan ukuran panjang=');readln(p);
       Write('Masukkan ukuran lebar=');readln(l);
       L := p*l
       Writeln('Luas Persegi Panjang adalah=',L);writeln
end.