program qq; var a,b,c,d : integer; begin writeln('Введите ширину, высоту и длину комнаты.'); read(a,b,c); d:=a*b*c; writeln('Объем комнаты равен ', d); end.