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

Var
a,s,v:integer;
begin
writeln('введите сторону куба');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('объем равен ', v);
writeln( 'площадь', s);
readln;
end.