uses crt;
var pjg,lbr:byte;LU,KE:real;
procedure luas(P,Lb:byte;var l:real);
begin
L:=P*Lb;
writeln('luas persegi panjang=',L:3:2)
end;
procedure keliling(P,Lb:byte; var K :real);
begin
K:=2*(P+Lb);
writeln('keliling persegi panjang=',K:3:2)
end;
begin
clrscr;
writeln('PERSEGI PANJANG');
writeln('---------------');
write('masukkan panjang=');readln(pjg);
write('masukkan leber=');readln(lbr);
luas(pjg,lbr,LU);
keliling(pjg,lbr,KE);
readln;
end.