Решить написать программу, которая запрашивает у пользователя сторону куба и выводит на экран его объем и площадь поверхности.

Var
  l: integer;
begin
  writeln('Введите длину ребра куба');
   readln(l);
  writeln('Объём куба равен ', l*l*l);
  writeln('площадь поверхности куба равна ',l*l*6);
  readln;
end.