Begin5. Дана длина ребра куба a. Найти объем куба V=a³ и площадь его поверхности S=6·a².
var a, v, s: real;
begin
  write('Введите длину ребра куба ->');
  readln(a);
  v:=sqr(a)*a;
  s:=6*sqr(a);
  writeln('Объем куба = ', v:6:2);
  writeln('Площадь поверхности куба = ', s:6:2);
end.