Помогите хоть какое нить задание сделать, чот вообще не понимаю

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