Program Project1;
choix_joueur_un: integer;
choix_joueur_deux: integer;
choix_joueur_dame: integer;
TableauN: Array [0..9,0..9] of integer;
TableauB: Array [0..9,0..9] of integer;
A,B,C,D,N : integer;
Couleur_joueur_un: string;
Couleur_joueur_deux: string;
Case_Vide:integer;
Case_Remplie:integer;
begin
  WriteLn ('Joueur 1 quelle couleurs voulez vous choisir ? 1 pour Blanc , 2 pour noir ');
  ReadLn(choix_joueur_dame);
  While
 choix_joueur_dame <= 3 do
 begin
 WriteLn ('Joueur 1 quelle couleurs voulez vous choisir ? 1 pour Blanc , 2 pour noir ');
  ReadLn(choix_joueur_dame);
  end;
if choix_joueur_dame = 1 then
  begin
 Couleur_joueur_un:= B ;
 Couleur_joueur_deux:= N ;
 end
else
Couleur_joueur_un:= N;
Couleur_joueur_deux:= B;
end;
If Case_Remplie = 1
then
WriteLn('Cette casse est déjà remplie');
Else
Case_Vide=0
WriteLn('Cette case est vide');
TableauB[0,0]=0;
TableauB[1,0]=1;
TableauB[2,0]=0;
TableauB[3,0]=1;
TableauB[4,0]=0
TableauB[5,0]=1
TableauB[6,0]=0
TableauB[7,0]=1
TableauB[8,0]=0
TableauB[9,0]=1
  ReadLn;
end.