Script Program Penghitung Luas dan Keliling Segi empat

Program PasMath;
Uses Crt;
Const Phi = 3.14;
Var
  pjg,lbr,jari,alas,tinggi : real;
  luas,kel : real;
  pilih : integer;
Begin

             ClrScr; pjg := 0; lbr := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS DAN KELILING SEGIEMPAT');
             Gotoxy(13,4); Write('======================================');
             Gotoxy(13,6); Write('Masukkan panjang segiempat = '); Readln(pjg);
             Gotoxy(13,7); Write('Masukkan lebar segiempat   = '); Readln(lbr);
             luas := pjg * lbr;
             kel := 2 * (pjg + lbr);
             Gotoxy(13,9);  Write('Luas segiempat adalah     = ', luas:9:2);
             Gotoxy(13,10); Write('Keliling segiempat adalah = ', kel:9:2);
             Readkey;
End.