составить программу для решения следующей задачи:дана длина ребра куба.найти объем куба и площадь его боковой поверхности.

var a,v,s:real;beginwrite('Введите длину ребра: ');readln(a);v:=a*a*a;s:=4*a*a;writeln('v=',v);writeln('s=',s);end.