Графикалық интерфейстің басты ерекшеліктерінің бірі

​

{вам следовало бы более точно описать, что вам нужно. непонятно, что это за условие со следованием. в примере 21106 за цифрой 2 следует 11, но за 11 не следует ничего из перечисленного. ну или в нем 10 следует за 1, но тогда зачем условия следования для 10..12? + ничего не сказано про случайное распределение этих чисел. так-то программа, которая все время выводит "1", тоже подходит под эти условия } const   r: array[1..12,1..5] of integer = (   (4,5,7,9,10),    //1   (5,6,8,10,11),  //2   (6,7,9,11,12),  //3   (1,7,8,10,12),  //4   (1,2,8,9,11),    //5   (2,3,9,10,12),  //6   (1,3,4,10,11),  //7   (2,4,5,11,12),  //8   (1,3,5,6,12),    //9   (1,2,4,6,7),      //10   (2,3,5,7,8),      //11   (3,4,6,8,9)        //12   ); var i,k: integer;   begin   k : = 1 + random(12);   for i : = 1 to 1 + random(3) do       begin       write(k);       k : = r[k,1 + random(5)];       end; end.