Паскаль по теме алгоритмы ?
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.