A1:=5/(19x)a2:=a1/xa3:=a2/xa4:=a3/x y:=a1+a4

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

var a,b,c: integer;

begin

  read(a,b,c);

  if a> =0 then writeln(a);

  if b> =0 then writeln(b);

  if c> =0 then writeln(c);

end.

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.