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