Kode Pascal 'Persegi'

 PROGRAM PASCAL

program Menghitung_luas_dan_keliling_persegi_panjang;
uses wincrt;
var
   l,p,k,Luas: integer;

begin
  writeln('          menghitung luas dan keliling persegi');
  writeln;
  writeln;
  write('masukkan panjang persegi: ');readln(p);
  write('masukkan lebar persegi: ')  ;readln(l);
  writeln;

  luas:=p*l;
  writeln('luas persegi adalah: ',Luas,'  satuan luas');
  writeln;

  k:=2*(p+l);
  writeln('keliling persegi adalah: ',k,'  satuan keliling');

end.