Program asd;
USES crt;
Const p=0.21;
var
a,b,c,v:real;
BEGIN
clrscr;
Writeln(Vvedite rasmer komnaty a-b-c: );
Readln(a,b,c);
V:=a*b*c*p;
Writeln(V:= ,v);
Readln;
END.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.