print('Длина ребра куба =')
a=int(input())
V=a*3
S=6*(a**2)
print('V=',V,' см**3',sep='')
print('S=',S,' cм**2',sep='')
K1 = 32*64 = 2048
K2 = 32*128 = 4096
I1 = K1*i1 = 2048*1 = 2048 бит
I2 = K2*i2 = 4096*8 = 32768 бит
I = I1+I2 = 2048+32768 = 34816 бит = 4,25 Кбайт
Begin
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.