Возвести в степень n число k - Pascal

Составить программу, которая с помощью цикла преподносит в степень n число k.

Листинг программы

Var
i,n,k,m: Integer;
begin
read (k,n);
m:=k
for i:=1 to n do
k:=k*m;
end.

Объяснение кода листинга программы

В начале кода объявляются четыре переменные типа Integer: i, n, k, m.
Затем происходит чтение двух чисел с помощью оператора read. Первое число присваивается переменной k, второе - переменной n.
Третье число (m) инициализируется значением переменной k.
Далее начинается цикл for, который выполняется от i=1 до n.
Внутри цикла значение переменной k умножается на значение переменной m.
После окончания цикла значение переменной k остается в переменной k.
Код завершается.