code pascal menghitung balok

program balok;
uses crt;
var
   p,l,t : integer;
   volume,luas : integer;
begin
TextBackground(2);
TextColor(48+ 128);

   writeln('Program volume & luaspermukaan balok');
   writeln('m wildanmiftahulhuda           ');
   writeln('                               ');
   TextBackground(4);
   TextColor(4+ 128);
   write('masukan nilai panjang =       ');readln(p);
   write('masukan nilai lebar =         ');readln(l);
   TextBackground(67);
   TextColor(4+ 128);
   write('masukan nilai tinggi =        ');readln(t);
   writeln;
luas := 2*(p*l)+2*(l*t)+2*(p*t);
volume := p*l*t;

   writeln('volume  nya adalah !!!!!!!! =        ',volume);
   writeln('luas nya adalah!!!!!!!!!!!! =        ',luas);
   writeln;
   readln;
end.