const MaxMembers = 50; type RoleType = ( guest, member, moderator, admin, owner ); Coder = record nick : string; jid : string; githubUrl : string; role : RoleType; end; CoderPtr = ^ Coder; Coders = array[ 1..MaxMembers ] of CoderPtr; procedure Output( Values : Coders ); var i : integer; begin for i := 1 to MaxMembers do begin with Values[ i ]^ do begin Writeln( nick ); Writeln( jid ); Writeln( githubUrl ); Writeln( role ); Writeln( '---------------------------------' ); end; end; end; function GenerateNick() : string; var i : integer; c : integer; s : array[0..4] of string = ( 'FOR', 'NE', 'VER', 'RE', 'XIM' ); r : string; begin r := ''; for i := 1 to 4 do r := r + s[ random( 5 ) ]; GenerateNick := r; end; function RandomRole: RoleType; begin RandomRole := RoleType(Random(Succ(Ord(High(RoleType))))); end; function Fill(): Coders; var i : integer; Forevers : set of 'A'..'Z'; res : Coders; begin randomize; for i := 1 to MaxMembers do begin New( res[ i ] ); with res[ i ]^ do begin nick := GenerateNick(); jid := 'жид хуид'; githubUrl := 'https://b...content-available-to-author-only...t.com/' + nick; role := RandomRole(); end; end; Fill := res; end; procedure Clear( var values : Coders ); var i : integer; begin for i := 1 to MaxMembers do dispose( values[ i ] ); end; var CodingTeam : Coders; begin randomize; CodingTeam := Fill(); Output( CodingTeam ); Clear ( CodingTeam ); end.
Standard input is empty
XIMFORREFOR жид хуид https://b...content-available-to-author-only...t.com/XIMFORREFOR member --------------------------------- REXIMFORNE жид хуид https://b...content-available-to-author-only...t.com/REXIMFORNE member --------------------------------- XIMNEXIMXIM жид хуид https://b...content-available-to-author-only...t.com/XIMNEXIMXIM guest --------------------------------- FORFORXIMRE жид хуид https://b...content-available-to-author-only...t.com/FORFORXIMRE guest --------------------------------- RENEVERXIM жид хуид https://b...content-available-to-author-only...t.com/RENEVERXIM owner --------------------------------- VERNERENE жид хуид https://b...content-available-to-author-only...t.com/VERNERENE member --------------------------------- XIMREREVER жид хуид https://b...content-available-to-author-only...t.com/XIMREREVER owner --------------------------------- REVERRENE жид хуид https://b...content-available-to-author-only...t.com/REVERRENE moderator --------------------------------- NEREXIMRE жид хуид https://b...content-available-to-author-only...t.com/NEREXIMRE member --------------------------------- REVERVERNE жид хуид https://b...content-available-to-author-only...t.com/REVERVERNE admin --------------------------------- VERRERENE жид хуид https://b...content-available-to-author-only...t.com/VERRERENE owner --------------------------------- VERNEXIMNE жид хуид https://b...content-available-to-author-only...t.com/VERNEXIMNE owner --------------------------------- FORVERFORVER жид хуид https://b...content-available-to-author-only...t.com/FORVERFORVER moderator --------------------------------- FORVERNEVER жид хуид https://b...content-available-to-author-only...t.com/FORVERNEVER member --------------------------------- NERERENE жид хуид https://b...content-available-to-author-only...t.com/NERERENE member --------------------------------- NEVERXIMVER жид хуид https://b...content-available-to-author-only...t.com/NEVERXIMVER owner --------------------------------- NEFORFORVER жид хуид https://b...content-available-to-author-only...t.com/NEFORFORVER admin --------------------------------- FORNEXIMFOR жид хуид https://b...content-available-to-author-only...t.com/FORNEXIMFOR admin --------------------------------- XIMVERRENE жид хуид https://b...content-available-to-author-only...t.com/XIMVERRENE guest --------------------------------- FORVERVERNE жид хуид https://b...content-available-to-author-only...t.com/FORVERVERNE owner --------------------------------- XIMFORNEXIM жид хуид https://b...content-available-to-author-only...t.com/XIMFORNEXIM member --------------------------------- XIMREVERXIM жид хуид https://b...content-available-to-author-only...t.com/XIMREVERXIM guest --------------------------------- FORREVERFOR жид хуид https://b...content-available-to-author-only...t.com/FORREVERFOR member --------------------------------- XIMXIMVERNE жид хуид https://b...content-available-to-author-only...t.com/XIMXIMVERNE admin --------------------------------- VERFORFORNE жид хуид https://b...content-available-to-author-only...t.com/VERFORFORNE owner --------------------------------- NEXIMREVER жид хуид https://b...content-available-to-author-only...t.com/NEXIMREVER admin --------------------------------- XIMXIMXIMNE жид хуид https://b...content-available-to-author-only...t.com/XIMXIMXIMNE moderator --------------------------------- REVERNEFOR жид хуид https://b...content-available-to-author-only...t.com/REVERNEFOR member --------------------------------- RENEVERRE жид хуид https://b...content-available-to-author-only...t.com/RENEVERRE guest --------------------------------- FORNEVERVER жид хуид https://b...content-available-to-author-only...t.com/FORNEVERVER member --------------------------------- NEREFORFOR жид хуид https://b...content-available-to-author-only...t.com/NEREFORFOR moderator --------------------------------- VERNEFORXIM жид хуид https://b...content-available-to-author-only...t.com/VERNEFORXIM guest --------------------------------- VERRERERE жид хуид https://b...content-available-to-author-only...t.com/VERRERERE member --------------------------------- VERFORXIMVER жид хуид https://b...content-available-to-author-only...t.com/VERFORXIMVER member --------------------------------- NENERERE жид хуид https://b...content-available-to-author-only...t.com/NENERERE owner --------------------------------- NENEXIMNE жид хуид https://b...content-available-to-author-only...t.com/NENEXIMNE admin --------------------------------- FORFORRENE жид хуид https://b...content-available-to-author-only...t.com/FORFORRENE admin --------------------------------- XIMFORRERE жид хуид https://b...content-available-to-author-only...t.com/XIMFORRERE admin --------------------------------- REVERVERXIM жид хуид https://b...content-available-to-author-only...t.com/REVERVERXIM guest --------------------------------- VERFORXIMRE жид хуид https://b...content-available-to-author-only...t.com/VERFORXIMRE admin --------------------------------- FORFORXIMVER жид хуид https://b...content-available-to-author-only...t.com/FORFORXIMVER admin --------------------------------- REXIMXIMRE жид хуид https://b...content-available-to-author-only...t.com/REXIMXIMRE guest --------------------------------- REFORREXIM жид хуид https://b...content-available-to-author-only...t.com/REFORREXIM admin --------------------------------- VERNEFORFOR жид хуид https://b...content-available-to-author-only...t.com/VERNEFORFOR member --------------------------------- NEFORNENE жид хуид https://b...content-available-to-author-only...t.com/NEFORNENE owner --------------------------------- NENEFORVER жид хуид https://b...content-available-to-author-only...t.com/NENEFORVER admin --------------------------------- REVERREVER жид хуид https://b...content-available-to-author-only...t.com/REVERREVER member --------------------------------- XIMNEXIMNE жид хуид https://b...content-available-to-author-only...t.com/XIMNEXIMNE owner --------------------------------- NEFORNEVER жид хуид https://b...content-available-to-author-only...t.com/NEFORNEVER guest --------------------------------- FORFORNERE жид хуид https://b...content-available-to-author-only...t.com/FORFORNERE member ---------------------------------