Developing.ru

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

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