Помогите! (Паскаль)
Сформировать массив W(R) следующим образом:
1,5,25,125...

Совершенно бессмысленно объявлять массив размером 10 тысяч элементов, потому что число типа integer не может превышать значения 32767, а при формуле общего члена "пять в степени n-1" допустимым является лишь значение 5^6=15625, поскольку дальше произойдет переполнение разрядной сетки. Следовательно, массив нет смысла объявлять больше [1..7]. И, соответственно нельзя принимать ко вводу R>7.

var r,i,y:integer;W:array[1..10000] of integer;beginwrite('R=');read(r);y:=1;for i:=1 to r do beginw[i]:=y;y:=y*5;writeln('W[',i,']=',w[i]);end;end.

const  R=14;var  i,k:integer;  W:array[1..R] of longint;  begin  Write('Введите число членов последовательности (1-',R,'): ');  Readln(k);  if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')  else begin    Write('Члены последовательности: 1');    w[1]:=1;    for i:=2 to k do    begin      w[i]:=5*w[i-1];      Write(', ',w[i])    end;    Writeln  endend.Тестовое решение:Введите число членов последовательности (1-14): 14Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125