Помогите срочно решить задачи в Turbo pascal

Question

1.Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и обьем куба. 
2.Даны две символьные строки А и В. Определите в какой из них больше символов и на сколько

Игорь Решетов · Accepted Answer

Вторая: 
var a,b:string; 
begin readln(a); readln(b); writeln(length(a)-length(b)); readln end.

Марат · Answer

s1 := a*a; 
s2 := 6*s1; 
v := a*a*a;