Var
 n,m,k,i,l:longint;
 m,p:array[1..10000]of longint;
begin
 readln(n);
for i:=1 to n do
begin 
readln(m[i]);
p[i]:=i*m[i];
end;
for i:=1 to n do write(p[i],' ');
readln;
end.

Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно. 

Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D