(Turbo Pascal) Задача с использованием циклических программ

[Autodor]

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

[Stilet]

Сам как-нибудь пробовал?

[Autodor]

program abc;
var i;a;p;n: integer;
begin
write('a',= ');
read(a);
write('n',= ');
read(n);
p:=1;
p:=p*a;
for i:=1 to n do
begin
_____________________________
Ну как-то так, а дальше - не знаю.

[Stilet]

Мдя... низачот.

...
p:=a;
for i:=2 to n do p:=p*a;
...

Все понятнышко?

[Autodor]

Большое спасибо. И еще: можете, пожалуйста, подсказать, что идет после второго бегина.
Я в программировании не силен, поэтому ожидать от меня правильных ответов не стоит.

[Stilet]

Второго бегина там вообще не должно быть.
Чего ты его вставил непонятно.

[Autodor]

А что тогда идет после строчки с фор?

[Stilet]

А что нужно?
Завершение программы, вывод результатов, приготовление эспрессо...

[Autodor]

Больше никаких действий по условию выполнять не надо? Если да, то как дальше знаю.
Еще раз большое спасибо за помощь.

[Stilet]

Больше никаких действий по условию выполнять не надо?

Ну если задача вся то не надо.