uses crt;
const mas:array[0..2] of integer=(8926,8903,8913);
var i,k,l:longint;
    f:text;
    s:string;
    int:byte;
begin clrscr;
  s:='000000';
  assign(f,'result.txt');
  rewrite(f);
  k:=10;int:=0;
  for i:=0 to 10000000 do
  begin
    l:=i div k;
    if i=k then
    begin
      k:=k*10;
      delete(s,6-int,int+1);
      inc(int);
    end;
    writeln(f,mas[0],s,i);
  end;
  close(f);
end.
readkey;
end.