Цикл for выполняет 3 раза d+2*i
d=4*2=8
1)d=8+2*1=10
2)d=10+2*2=14
3)d=14+2*3=20
d=20
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.
Ответ в задании из информатики (А)
22байта=176бит
15кбайта=117760байт
156=163577856байт