{* Вычисление объема куба *}

Unit LIN_2;
Interface
Implementation
Begin
 writeln('Вычисление объема куба');
End.

Program lin_2;

Uses lin_2.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
Begin
  writeln('Vvedite dlinu rebra');
  readln(x);
  y := exp(3 * ln(x));
  writeln('Obiem kuba = ', y : 5 : 2);
  readkey; {* Ждем нажатия пользователя *}
End.