program keliling persegi | pascal

program keliling_persegi;
uses crt;
var
     pjg,lbr,keliling : integer;
begin
     clrscr;
     write('Panjang= '); readln(pjg);
     write('Lebar  = '); readln(lbr);

     keliling:=2*(pjg+lbr);
     writeln('keliling persegi= ',keliling);
     readln;
end.