Cоставить блок-схему и написать программу нахождения площади (s) боковой поверхности куба. длина (a) стороны куба вводится с клавиатуры.

Var a, c: integer;beginwrite ('Введите длину ребра куба ');read (a);c:=6*sqr(a);
writeln ('Площадь боковой поверхности куба равна ',c);
end.