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

var i: integer;a,V,s: real;beginwriteln ('введи длину ребра куба');read (a);V:=a*a*a;writeln ('объем куба=',v);s:=6*a*a;writeln ('площадь боковой поверхности=',s);end.