program segi empat;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   p,v,l,t:real;

begin
     write('volume segiempat');
readln;
     write('panjang segiempat');readln(p);
     write('tinggi segiempat');readln(t);
     write('lebar segiempat');readln(l);
     V:=p*l*t*0.33;
     write('luas segiempat adalah :',V:2:2);readln;
end.