Дан куб, длина стороны а, найти площадь полной поверхности кубанужна программа в паскале

Question

Дан куб, длина стороны а, найти площадь полной поверхности куба
нужна программа в паскале

Answer 1

Var a S:integer;
begin
readln(a);
S:=6*a*a;
writeln(S);
end.
Вроде так