Games Logika

##
var user_lst := new List<string>;
///
Println('Введите любые 4 цвета из предложенного списка:');
Println('C(cyan),B(blue),R(red),M(magenta),G(green),W(white)');
Println('В игре участвуют только 4 цвета!');
///
var yes_no := ReadString('Можно начинать игру? Напишите yes/no: ');
///
if (yes_no = 'y') or (yes_no = 'Y') then
begin
  for var i := 1 to 4 do
  begin
    Print($'Введите {i}-ый цвет: ');
    user_lst.Add(ReadString());
  end;
end else
begin
  Println('Игра окончена!');
  exit
end;
///
var auto_lst := new List<string>;
auto_lst.Add('C');
auto_lst.Add('B');
auto_lst.Add('R');
auto_lst.Add('M');
auto_lst.Add('G');
auto_lst.Add('W');
auto_lst := auto_lst.Shuffle;
auto_lst.RemoveAt(0);auto_lst.RemoveAt(0);
//Println('Вариант компьютера: ',auto_lst);
///
Println('Ваш вариант:        ', user_lst);
///