Помогите! (Паскаль)

Сформировать массив W (R) следующим образом:

1,5,25,125 ...

Const

R=14;

var

i, k:integer;

W:array[1 ... R] of longint;

begin

Write ('Введите число членов последовательности (1-', R,') : ') ;

Readln (k) ;

if (kR) 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

end

end.

Тестовое решение:

Введите число членов последовательности (1-14) : 14

Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125

Var r, i, y:integer;

W:array[1 ... 10000] of integer;

begin

write ('R=') ;

read (r) ;

y:=1;

for i:=1 to r do begin

w[i]:=y;

y:=y*5;

writeln ('W[', i,']=', w[i]) ;

end;

end.