Прошу помощи по задаче (Turbo Pascal, Циклические программы)

[Autodor]

Помогите, пожалуйста, решить задачу на Turbo Pascal с использованием одного из циклов (цикл с параметром или с передусловием или постусловием).
Дано A и N.
p=a в степени n
p:=1
p:=p*a

[Хыиуду]

Апогей лени и нежелания учиться даже самому элементарному
for i:=1 to n do p:=p*a;