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

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