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

• 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.