D12. Особая последовательность

По заданному целому числу n выведите одним циклом последовательность вида: 1, 2, 2, 3, 3, 3, 4, 4, 4, 4,..., n, n,..., n (в этой последовательности каждое число i записывается ровно i раз). При выводе числа разделяйте пробелами. Ваш вывод должен заканчиваться на элементе равном n, выведенном n раз.
----------------------------------------------------
var
 a,b,c,i,n,j:longint;
 begin
  read(n);
  for i:= 1 to n do begin
   j:=0;
   while j<i do begin
   write(i, ' ');
   j+=1;
   end;
 end;

 end.