Дана длина ребра куба. Найти площядь грани этого куба

Input " Введите длину ребра"; a

y = a ^ 2

print "Площадь грани равна"; y

1 вариант:

var a: integer;

begin

write ('Введите длину ребра куба: ') ; read (a) ;

writeln ('Площадь грани куба = ', a*2) ;

end.

2 вариант:

var a: integer;

begin

a:=6; / / Поменяйте значение на нужное

writeln ('Площадь грани куба = ', a*2) ;

end.