прошу помощи

[ex-hack]

Дано вещественное число "а" и натуральное чило"н". Вычислить значения а^1,a^2....a^n Операцию возведения в степень не использовать (a^1-а в степени 1)

[ex-hack]

всё спасибо ненадо уже догадался

[ex-hack]

вот код кому нужно

program gggn;
uses crt;
var s,i,n,a:integer;
begin
writeln ('a=');
readln(a);
writeln('n=');
readln(n);
s:=1;
for i:=1 to n do
s:=s*a;
write('a^n=',s);
readln
end.