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

Question

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

---

Answer 1

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