Дана длина ребра куба.Найти площядь грани этого куба
1 вариант: var a: integer; begin write ('Введите длину ребра куба: '); read(a); writeln ('Площадь грани куба = ',a*2); end. 2 вариант: var a: integer; begin a:=6; // Поменяйте значение на нужное writeln ('Площадь грани куба = ',a*2); end.