Составьте программу заполнения масива а [ 1.10 ] случайными целыми числами в диапазоне от n до м. числа n и м введите с клавиатуры . выведите на экран полученный массив . вьте программу заполнения масива

begin

  var (n, m) : = readinteger2;

  var a : = arrrandom(10, n, m);

  a.println

end.

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

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

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.