по Pascal!!!

[Izymka]

1. Дано натуральне число n, дійсні числа a1, a2, …, an. Обчислити послідовність a1^n,a2^n-1,...,an^1 .
У меня получилось только так a1^n,a2^n,a3^n,.... . Помогите, пожалуйста!


program n_6_1;
uses CRT;
var
p,r,s,a:real;
k,i,n:word;
begin
Write('n=');
Read(n);
s:=1;
begin
for i:=1 to n do
begin
Write('a',i,'=');Read(a);
p:=a;
begin
for k:=2 to n do
p:=p*a; r:=p;
end;
p:=r/s;
Writeln('a',i,'=',r:7:3);
end;
s:=s*a;
end;
end.


2.Дані цілі додатні числа n, k, m, a1, a2, …, an. Знайти ті члени послідовності, що при діленні на m дають залишок кратний k. Вот что смогла…. Помогите!!
uses crt;
var
a,k,m,b,n:word;
i:byte;
begin
Write('n=');Read(n);
Write('m=');Read(m);
Write('k=');Read(k);
for i:=1 to n do
begin
Write('a',i,'=');Read(a);
b:=a;
while b>=m do b:=b-m;
if b>0 then
begin
while b>=k do b:=b-k;
if b=0 then Writeln('Result',' ','a',i,'=',a)
else
Writeln('error');
end;
end;
end.

[DoDge_VipeR]

Дано натуральне число n, дійсні числа a1, a2, …, an. Обчислити послідовність a1^n,a2^n-1,...,an^1 .

fоr i:=1 to n do
begin
p:=1;
for j:= n downto i do
p:=p*a[i];
a[i]:=p;
end;

Дані цілі додатні числа n, k, m, a1, a2, …, an. Знайти ті члени послідовності, що при діленні на m дають залишок кратний k.

for i:=1 to n do
if a[i] mod m = k then write(a[i]:5);

[Izymka]

спасибо большое, но во второй задаче нельзя использовать mod и div.... как быть?

[Z1000000]

program n_6_1;
uses CRT;
var
p,r,s,a:real;
n:word;
i,k : Integer;
begin
Write('n=');
Read(n);
s:=1;
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.

[DoDge_VipeR]

for i:=1 to n do
begin 
p:=a[i];
while p>k do
p:=p-m;
if p=k then write(a[i]);
end;

[Izymka]

uses crt;
var
a,k,m,p,n:word;
i:byte;
begin
Write('n=');Read(n);
Write('m=');Read(m);
Write('k=');Read(k);

for i:=1 to n do
begin 
Write('a',i,'=');Read(a);
p:=a;
while p>k do
p:=p-m;
if p=k then write('a',i,'=');
end;
end.

вторая так?? только что то не то получается...

[DoDge_VipeR]

вторая вот так

var
k,m,p,n:word;
a:array[1..100] of Word;
i:byte;
begin
Write('n=');Readln(n);
Write('m=');Readln(m);
Write('k=');Readln(k);

for i:=1 to n do
begin
Write('a',i,'=');Readln(a[i]);
 end;
for i := 1 to n  do
 begin
p:=a[i];
while p>k do
p:=p-m;
if p=k then write(a[i]:4);
end;
Readln;
end.

[Izymka]

спасибочки!!!!!!!!! просветили тупую!!!!!!