procedure trivolume();
	var x,y,z,result:integer
begin
	writeln('Enter the length: ');
	readln(x);
	writeln('Enter the width: ');
	readln(y);
	writeln('Enter the depth: ');
	readln(z);

	result := x * y * z;
	writeln('The volume is: ', result);
	readln;
end;

begin
trivolume;
end;