помогите пожалуйста! Напишите программу вычисления площади боковой поверхности куба!

var a,b,s: real;

begin

writeln("Введите высоту куба");

Readln(a); 

writeln("Введие длину стороны куба");

readln(b);

s:=a*b;

writeln("Площадь равна",s);

readln; 

end.