Задача на последовательность

[makskovalko]

Помогите решить задачку!
Сгенерировать последовательность вида 1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,... На входе программы - число n - длина последовательности. Пример:
Ввод: 5
Вывод: 1 2 2 3 3
Ввод: 2
Вывод: 1 2

[Serge_Bliznykov]

язык какой?

[makskovalko]

Нужно на Pascal.

[Lifeda92]

вот на делфи:

procedure TForm1.btn1Click(Sender: TObject);
var
  i, b, m: Integer;
  str: string;
begin
m:=0;
  for i:=1 to StrToInt(edt1.Text) do
    begin
      for b:=1 to i do
        begin
         if m= StrToInt(edt1.Text) then Break else
         str:=str+IntToStr(i)+', ';
         inc(m);
        end;
      if m= StrToInt(edt1.Text) then Break;
    end;

  Delete(str,Length(str)-1, Length(str));
  mmo1.Lines.Add(str);

end;

[BDA]

uses math;
var
  n, i: integer;
begin
  readln(n);
  for i := 1 to n do
    write(ceil((sqrt(8 * i + 1) - 1) / 2), ' ');
end.

[makskovalko]

Большое спасибо!