All pastes #935138 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-03-09 11:45 UTC
rendered paste body
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.