Определить, какое число в последовательности стоит на n-ом месте?

program p1;
uses
  crt;
var
  i, j, a, N, k : word;
begin
  clrscr;
  a := 0;
  write('N = ');
  readln(N);
  k := N;
  i := 0;
  writeln('Последовательность :');
  repeat
    inc(i);
    a := a + 1;
    for j := 1 to i do
     begin
      dec(N);
      if N=0 then break;
      write(a:4);
     end;
  until N=0;
  write(a:4);
  writeln;
  write('На ',k,' месте стоит : ',a);
  readln;
end.

uses Crt;
var a:array[1..100]of Integer;
i,j,n,k:Integer;
begin
ClrScr;
Write('n=');
Readln(n);
while i<>n do 
begin
inc(k);
for j:=1 to k do
if i+1<>n+1 then
begin
inc(i);
a[i]:=k
end else Break;
end;
Writeln('Последовательность:');
for i:=1 to n do Write(a[i],' ');
Writeln;
Writeln('На n-м месте стоит число: ',a[n]);
Readln;
end.

program Project1;
 
var
  S : String;
  i, j, k, N : Integer;
begin
  repeat
    Write('Задайте N: ');
    Readln(N);
 
    {Решение.}
    i := 0; {Искомое число.}
    j := 0; {Последняя позиция (справа), где заканчивается ряд чисел i.}
    while j < N do begin
      Inc(i);
      Inc(j, i); {Это тоже самое, что и: j := j + i;}
      for k := 1 to i do Write(i, ' '); {Распечатка последовательности.}
    end;
    if j > 0 then Writeln;
 
    {Ответ.}
    if N < 1 then
      Writeln('Неверно задана позиция.')
    else
      Writeln('На позиции ', N, ' стоит число: ', i);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

var
  n:longint;
begin
  readln(n);
  writeln('На ',n,' месте стоит ',round(sqrt(2*n)));
end.