program Project2;

 

{$APPTYPE CONSOLE}

 

 

uses

  SysUtils;

 

const

 Letters = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

 

var

 j:Integer;

 

 function GeneratePass(nDigits, nLetters:Integer; ConstPart:String):String;

var

 i:Integer;

begin

 Result := '';

 for i := 1 to nDigits do

  Result := Result  + Char(ord('0') + random(10));

 for i := 1 to nLetters do

  Result := Result  + Letters[1 + random(Length(Letters))];

 Result := Result + ConstPart;

end;

begin

 for j := 1 to 100 do

  Writeln(Generatepass(2, 9 , '1234'));

 readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.