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

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