POLA II













var

 

n:byte;

j, i ,cnt: byte;

 










begin

 

 readln(n);

 cnt := 0;

 

 for i:=1 to n do

 begin

  

  for j:=1 to i do

  begin

      write(cnt);

      inc(cnt);

      if (cnt = 10) then

        cnt := 0;

  end;

 

   writeln();

 

 end;

 

end.