kode program pascal mencari luas persegi panjang

Kode program Pascal

program lp;

uses wincrt;

var   panjang:interger;

        lebar     :integer;

        luas: real;

writeln('masukkan panjang  :');

readln(panjang);

writeln('masukkan lebar:    ');

readln(lebar);

luas:=panjang * lebar;

write(luas persegi pangjang adalah : ','luas)

end.