program CodeGenerator; var i,ii: integer; code,extraChars: string; begin for i:= 0 to 999999999 do begin for ii:= 0 to 8-Length(IntToStr(i)) do extraChars:= extraChars+'0'; code:= 's'+extraChars+IntToStr(i); extraChars:= ''; Writeln(Code); end; end.