menghitung luas dan keliling persegi panjang (pascal)

uses crt;

var p,l,ls,k,pilihan:integer;

begin

clrscr;

writeln('menu utama');

writeln('1.menghitung luas persegi panjang');

writeln('2.menghitung keliling persegi panjang');

write('silakan pilih menu utama=');readln(pilihan);

case pilihan of

1:begin

writeln('luas persegi panjang');

writeln('masukan panjang');readln(p);

writeln('masukan lebar');readln(l);

ls:=p*l;

writeln('hasil=',ls);readln;

end;

2:begin

writeln('keliling persegi panjang');

writeln('masukan panjang');readln(p);

writeln('masukan lebar');readln(l);

k:=2*p*l

writeln('hasil=',k);readln;

end;

else

writeln('pilihan tidak terdaftar^^');

end;

readln;

end.