Program Menghitung Luas Persegi Panjang Bahasa Pascal

procedure luas (p,l:integer);

var

Luas:integer;

begin

Luas:= p*l;

writeln('Luaspersegipanjang = ',luas)

end;

var

a,n:integer;

begin

write('masukannilaipanjang = ');readln(a);

write('masukannilailebar = ');readln(n);

luas(a,n);

end.

Posted in: BAHASA PASCAL