code pascal menghitung persegi

program persegi;
uses crt;
var
   p,l : integer;
   luas,kll : integer;
begin
TextBackground(2);
TextColor(73+ 128);
   writeln('Program Menghitung Luas & Keliling persegi');
   writeln('m wildanmiftahulhuda');
   TextBackground(3);
TextColor(35+ 128);
   writeln;
   write('masukan nilai panjang = ');readln(p);
   write('masukan nilai lebar = ');readln(l);
   writeln;
luas := p*l;
kll := 2*p+2*l;
TextBackground(46);
TextColor(54+ 128);
   writeln('Luas      = ',luas);
   writeln('Keliling  = ',kll);
   writeln;
   readln;
end.