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

var a,b,s: real; begin writeln("Введите высоту куба"); Readln(a);  writeln("Введие длину стороны куба"); readln(b); s:=a*b; writeln("Площадь равна",s); readln;  end.