Дано число а и натуральное число n. Напечатать на экране а в степени n (Паскаль цикл с предусловием)

program zz1;

var n, i, f, a:integer; / / вводим переменную целого типа

begin

write (' введите число n '); / / вводим с клавиатуры первое число

read (n);

write (' введите число a '); / / вводим с клавиатуры второе число

read (a);

i:=1; / / задаем начальное значение для параметра цикла

f:=1; / / задаем начальное значение для результата

while i < = n do / / организуем цикл с предусловием

begin

f: = f * a; / / получаем степень числа

i:=i + 1; / / увеличиваем параметр цикла

end;

write (' полученный результат = ', f); / / выводим ответ

end.