1.Продолжить числовой ряд 1,5,25,125,625... использую цикл REPEAT. (Паскаль)2.Найти сумму

До какого значение продолжить числовой ряд?

Значения*

там нет определенного значения

//Pascal
//1)
var N, mult: longint;
begin
  mult := 1;
  write('Введите окончательное число: '); readln(N);
  repeat
    write(mult, ' ');
    mult := mult * 5;
  until (mult gt; N);
readln;
end.

//2)
var
  i: byte;
  sum: integer;
begin
sum := 0;
  for i := 1 to 49 do
    if i mod 2 lt;gt; 0 then sum := sum + i;
writeln('Sum = ', sum); readln;   
end.