Вычислить n-ый член по заданному n в массиве

[DiegO]

вроде она легкая, но я не могу ее решить:
Вычислить n-ый член по заданному n(вводится с клавиатуры) в таком массиве:
1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,...

[Aristarh Dark]

Типа так:

var
  in_data,counter,i:integer;
begin
  WriteLn('Input value');
  Readln(in_data);
  i:=0;
  counter:=0;
  repeat
    inc(i);
    counter:=counter+i;
  until counter>=in_data;
  Writeln('Value = ',i);
  Readln;
end.

[DiegO]

спс большое)

[DiegO]

еще такое задание:
есть последоватеольность:
10
01
0110
01101001
0110100110010110
...
короч, каждый послед член(двоичное число) - это инвертирование все цифры до него, и нужно узнать цифру(о или 1) по заданному номеру
помогите кто может)) я ломал се голову над этим, так ниче и не придумал)