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

Для решения данной задачи необходимо вспомнить три формулы — площадь квадрата (так как грань куба это квадрат), площадь полной поверхности куба и объем куба:

S_гр = a²

S_полн = 6 * S_гр

V = a³

Напишем программу:

program z_3;
var a, S_gr, S_poln, V: real;
begin
  write('Введите ребро куба: ');
  read(a);
  S_gr := a * a;
  S_poln := 6 * S_gr;
  V := a * a * a;
  writeln('Площадь грани: ', S_gr);
  writeln('Площадь полной поверхности: ', S_poln);
  writeln('Объем: ', V);
end.