Составьте программу на вычисление числа 9 в степени, паскаль

var  i, n, sum: integer;beginwriteln('Введите степень');read(n);sum := 1;for i := 1 to n dosum := sum * 9;writeln(sum);end.