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