Цикл паскль

[Berserkkk]

помогите решить эту задачу, никак не могу понять, хоть она и прстая дальше некуда

Пользователем вводятся числа A и N, Вывести А в степени N. A*A*A...
числа А перемножаются N раз

[ROMA2PVT]

exp(n*ln(a))

[Berserkkk]

в том то и беда, что через експоненту нельзя(((

Нужно через repeat(

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=4192

[Berserkkk]

и все равно понять не могу(((
нужно именно через эту ф-ю(

[vlad_light]

могу написать для целого N.

function pow(a:real, n:integer):real
var i:integer; t:real;
begin
t:=a;
for i:=1 to n a:=a*t;
pow:=a;
end;

[Berserkkk]

можно еще один вопрос что значит вот эта строчка?
function(var a:real, var n:integer):real

и да, спасибо

[vlad_light]

Исправил))
Объявляем ф-цию pow типа real, которая зависит от двух переменных: а и n.
Дальше пишешь:

var a:real; n:integer;
begin
read(a,n);
write(pow(a,n));
end.

[cbuilderx]

Без функций лучше бы ему написал,чтоб не мучался:
var x,i,n,t:integer;
begin
read(x,n);
t:=x;
for i:=1 to n-1 do
t:=t*x;
writeln(t);
end.

[cbuilderx]

в цикле до n-1:

function pow(a:real;n:integer):real;

var i:integer; t:real;
begin
t:=a;
for i:=1 to n-1 do a:=a*t;
pow:=a;
end;

var a:real; n:integer;
begin
read(a,n);
write(pow(a,n));
end.