Помогите создать программу в Паскале. (задача)

Question

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

Игорь Молоствов · Accepted Answer

V := a*a*a; S := a*a;

Димарик Рожнов · Answer

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

Екатерина Жуплева · Answer

ты мне пришли формулы объема и площади, я тебе программу