Program P0101;
{progarm untuk menghitung luas persegi
panjang}
uses
crt;
var
luas,panjang,lebar:integer;
begin
clrscr;
writeln('**************************************');
writeln('* program menghitung persegi panjang *');
writeln('**************************************');
write('masukan panjang:'); readln (panjang);
write('masukan lebar :'); readln
(lebar);
luas:=panjang*lebar;
writeln('jadi luas persegi panjang diatas adalah:',luas);
readln;
end.
