RUMUS MEMBUAT PERSEGI PANJANG

program hitung_persegi_panjang;

uses
crt;
var
p,l :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling persegi panjang');
writeln(' ');
write('masukkan nilai panjang :');
readln(p);
write('masukkan nilai lebar :');
readln(l);
luas:=p*l;
writeln('jumlah luas :',luas:3);
kel:=2*(p+l);
writeln('jumlah keliling :',kel:3);
read(kel)
end.