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.