Задание

Составьте из фрагментов программу, которая по данному ребру куба находит суммарную длину его рёбер, площадь полной поверхности и объём.

var a, length, square, volume: integer;

begin

read(a);

length:=12*a; square:=6*a*a; volume:=a*a*a;

write(length, ' ', square, ' ', volume);

end.