Запиши верный ответ, если дан алгоритм: a1:=6/(29x) a2:=a1/x a3:=a2/x a4:=a3/x y:=a1+a4

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
  end
end.

Тестовое решение:
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125