Luas Persegi Panjang

Program luas_persegi_panjang;
Uses Crt;
Var
    Panjang,lebar,luas:integer;
Begin
Clrscr;
Write(‘masukkan panjang ?’);readln(panjang);
Write(‘masukkan lebar ?’);readln(lebar);
Luas:=panjang*lebar;
Writeln(‘luas persegi panjang adalah’,luas,’cm’);
Readln;
End.