Question

Составьте линейную программу на языке Паскаль. Найдите полную площадь боковой поверхности куба по заданной длине ребра. У куба шесть граней.

Answer 1

Var rebro;
begin
readln(rebro);
writeln(rebro*rebro*6);
end.