Pascal - Как правильно вычислить степень

[Izymka]

Как правильно вычислить а1^1, a2^2,a3^3.... an^n?
вот я примерно думаю так, но немного надо изменить! помогите пожалуйста, а то туплю...

begin
Write('n=');
Read(n);
p:=1;
for i:=1 to n do
begin
Write('a',i,'=');Read(a);
s:=a;
begin
for j:=i to n do s:= 
end;

Writeln('a',i,'=',s:7:3);

[Lemo]

uses math; 
..........
begin 
a:= power(b,i); // b число, i - в какую степень возводим b // цикл вам в помощь
end.

[Izymka]

спасибо, но так я умею!! мне нужно с повторным использованием FOR TO DO .... могу только в степени n или n-1,n-2, ... и т.д. а это что то никак

[Lemo]

Пример дайте расширенный...Не могу понять самого задания

[ROMA2PVT]

var
	x,n,i:longint;
	k:real;
begin
writeln('Введите количество элементов: ');
readln(x);
n:=1;
for i:=1 to x do
begin
k:=exp(ln(i)*n);
writeln;
  write('Число ',i,' в степени ',n,':=',k);
  inc(n);
  end;
  readln;
end.

[Izymka]

с помощью этой программы находили a1^n,a2^(n-1),a3^(n-2),...,an^1...

program n_6_1;
uses CRT;
var
p,a:real;
n:word;
i,k:integer;
begin
Write('n=');
Read(n);

for i:=1 to n do
begin
Write('a',i,'=');Read(a);
p:=a;
for k:=i to n-1 do
p:=p*a; 
Writeln('a',i,'=',p:7:3);

end;
end.

мне нужно решить точно таким же путем, только степень от 1 до n!

[DoGFoX]

Если всё правильно понял, то думаю примерно так

Program n1;
var a,b:longint; i,j,n:integer;
begin
a:=1;
writeln('Введите последнюю степень');
readln(n);

for i:=1 to n do begin b:=a;
for j:=1 to i-1 do begin b:=b*a; end;
writeln(i,' в степени ', j+1,' = ',b); a:=a+1; end;

readln;
end.

[DoDge_VipeR]

for i:=1 to n do
begin
Write('a',i,'=');Read(a);
p:=a;
for k:=1 to i do
p:=p*a; 
Writeln('a',i,'=',p:7:3);end;

[Izymka]

нет, это не правильно!
я на утро вот наконец сообразила!!

program n_6_3;
uses CRT;
var
p,r,s,a:real;
j,i,n:word;
begin
Write('n=');
Read(n);
p:=1;
for i:=1 to n do
begin
Write('a',i,'=');Read(a);
s:=a;
begin
for j:=i downto n-j do
s:=s*a;
end;

Writeln('a',i,'=',s:7:3);

end;

ну если кому надо будет....

[DoGFoX]

Ээээ..... один вопрос))) Почему наши варианты не правильные??