Menghitung Luas Persegi Panjang

program MenghitungLuas;

uses wincrt;

var

p,l,h:integer;

const

pn='panjang';

lb='lebar';

x='x';

s='=';

begin

writeln('Menghitung Luas Persegi Panjang');

writeln('Dengan Constanta dan Deklarasi Variabel');

writeln('--------------------------------------------------------');

write(pn,': ');readln(p);

write(lb,': ');readln(l);

h:=p*l;

clrscr;

writeln('Luas Persegi Panjangnya adalah');

writeln('-------------------------------------------');

writeln('Hasil --> ' ,p ,' ', x , ' ', l , ' ',s , ' ', h );

end.