Каков объем кислорода содержащегося в комнате размером a*b*c, если кислород составляет 21% объема воздуха ?

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.