Rumus Pascal

Uses wincrt ;
var
P,L,KL,LS:real;

Begin
Writeln('Program Persegi Panjang');
Write('masukan panjang:');readln(P);
Write('masukan lebar:');readln(L);
LS:=P*L;
KL:=2*(P+L);
Writeln('Luasnya:',LS:2:3);
Writeln('Kelilingnya:',Kl:3);

end.