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 Writeln( Values[ i ]^.nick ); Writeln( Values[ i ]^.jid ); Writeln( Values[ i ]^.githubUrl ); Writeln( Values[ i ]^.role ); Writeln( '---------------------------------' ); end; end; function GenerateNick() : string; var i : integer; c : integer; s : array[0..5] of char = ( 'F', 'O', 'R', 'N', 'E', 'V' ); r : string; begin r := ''; for i := 1 to 8 do r := r + s[ random( 6 ) ]; 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 ] ); res[ i ]^.nick := GenerateNick(); res[ i ]^.jid := 'жид хуид'; res[ i ]^.githubUrl := 'https://b...content-available-to-author-only...t.com/Username'; res[ i ]^.role := RandomRole(); end; Fill := res; end; var CodingTeam : Coders; begin randomize;; CodingTeam := Fill(); Output( CodingTeam ); end.
Standard input is empty
ENNVEREF жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- EVRRRREF жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- VVFRVOOR жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- NFFRERFO жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- OVVFFFRN жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- FEOVRRNO жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- ENVROVVV жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- RORREROF жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- FOOEVVOE жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- FEFNOVNV жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- ONEEERER жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- VFVORNVR жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- REVRFRVV жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- REREVRFR жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- OEVRFONN жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- FVRRVEOR жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- VRFNRRFR жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- EFVNOEFN жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- RVVRENEF жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- OERNFORO жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- VFOFOFOR жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- VFFVNVON жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- VVVNVVVF жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- EREOENOR жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- EFVVNRRV жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- ERVOENRV жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- VEVNNVOO жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- NORENVFF жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- FOREFNNO жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- RNVROOVE жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- ENNFEONR жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- VFVNFFRV жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- NOOVEREV жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- VEOVNOEO жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- FNFVVRVN жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- FFEEONEE жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- OORFROVF жид хуид https://b...content-available-to-author-only...t.com/Username admin --------------------------------- VNFNOOVE жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- VRNVNEFR жид хуид https://b...content-available-to-author-only...t.com/Username member --------------------------------- VONEFEEE жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- ONOONVNF жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- VEFNRFVV жид хуид https://b...content-available-to-author-only...t.com/Username guest --------------------------------- EORNFRVV жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- ONRRVVFR жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- FNEEORRN жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- FEOEVVVR жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- VEEEVVOO жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- FNEFFOEF жид хуид https://b...content-available-to-author-only...t.com/Username moderator --------------------------------- VERFEFEO жид хуид https://b...content-available-to-author-only...t.com/Username owner --------------------------------- FNNNFRVE жид хуид https://b...content-available-to-author-only...t.com/Username admin ---------------------------------