проверка числа на отсутствие возрастающих и убывающих четвёрок, Pascal

проверка числа на отсутствие возрастающих и убывающих четвёрок

// проверка подходящего варианта тройки цифр
// не должно быть возрастания или убывания из 4-х цифр
 var n, fl : integer;
 var m : array [1..9] of integer;
 begin
   // вводится число
   // разбивается на цифры и сохраняются в массиве
   // проверка, чтобы все цифры были разные цикл в цикле по парам
   // проверяем есть ли последовательность 4-х возрастающих цифр
   readln (n);
   for var i := 9 downto 1 do
   begin
     m[i] := n mod 10;
     n := n div 10;
   end;
   writeln(m);
   fl := 0;
   for var i := 1 to 9 - 3 do
     for var j := i + 1 to 9 - 2 do
       for var k := j + 1 to 9 - 1 do
         for var l := k + 1 to 9 do
           if not ( 
                    ((m[i] > m[j]) and (m[j] > m[k]) and (m[k] > m[l]))
                    or
                    ((m[i] < m[j]) and (m[j] < m[k]) and (m[k] < m[l]))
                  ) 
           then
              fl := 1 //writeln(m[i],' ', m[j],' ', m[k],' ', m[l],' ', m)
           else
             begin
              fl := 0 //writeln('No');
              //break;
             end;
   writeln(fl, ' stop')
 end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development