program Untitled2;

Const
     Samples = 3;

Var
   Count : integer;
   Length,Height,temp_volume : real;
   Volume : integer;
   Filein,Fileout : Text;

begin
Assign (filein,'DATA2.txt');
reset (filein);

Assign (fileout,'OUT2.txt');
Rewrite (fileout);

Readln (filein,length);
Readln (filein,height);

Temp_volume := (length * length * height)/3;

Count := Round(Temp_volume);

If Temp_volume - count > 0 then
   Volume := Count + 1
else
    Volume := count;

Writeln(fileout,Volume);
Writeln (Length,Height,Volume,Count);

Close (fileout);
end.