Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба
паскаль

Var A:real;BeginWrite('Ребро куба = ');ReadLn(A);WriteLn('S грани = ',A*A);WriteLn('S полной поверхности = ',A*A*6);WriteLn('V куба = ',A*A*A)End.