Задали по информатике составить программу для a3(а в кубе). как это сделать .

Program KUB;
Uses crt;

var a: integer;

Begin clrscr;
      write('Введите число a = ');
      readln(a);
      writeln;
      write('a^3 = ',a*a*a);

End.

ЛИБО

 write('a^3 = ',exp(3*ln(a)));