program Chancho;
const
	BR = ^M^J;  {Defines CRLF}
	
type
	nombre = string[50];  {String for names}
var
	Sub, Number_of_Players  : integer;
	Names_Players : array[1..20] of nombre;
	NAME : nombre;
begin
	WriteLn('                  |:: C H A N C H O ::|                 ');
	WriteLn('========================================================');
	WriteLn('(Jugar compulsivamente es perjudicial para la salud...XD)');
	WriteLn(BR);
	Write('How many players? ~> ');
	Read(Number_of_Players);
	for Sub:=1 to Number_of_Players do
	begin
		Write('Player ', Sub, ' ~> ');
		ReadLn(NAME);
		Names_Players[Sub]:=NAME
	end;
	for Sub := 1 to Number_of_Players do
		Write(Names_Players[Sub], '|###|');
	WriteLn('====================================================>');
end.