luas persegi panjang

program LuasPersegiPanjang;
uses crt;
var
 Luas,p,l : integer; //mendeklarasikan variabel

begin
 clrscr;
 p := 50;     //mengisi variabel p
 l := 100;     //mengisi variabel l
 Luas := p * l;  //perhitungan luas disimpan pada variabel luas

 write('Luas persegi panjangnya adalah : ',Luas); //mencetak hasil nya
 readln();
end.