Дана последовательность натуральных чисел, завершающаяся число 0. определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше c#

А  в   с     (c^a)   bv(c^a)       a=> bv(c^a) 0   0   0     0         0            1         0   0   1     0         0           1 0   1   0     0         1           1 0   1   1     0         1           1 1   0   0     0         0           0         1   0   1     1         1           1 1   1   0     0         1           1 1   1   1     1         1           1 v - дизъюнкция(складываем) ^ - конъюкция (умножаем)последовательность действий - как в . сначала то, что в скобках, потом остальное.ну вт, как то так : )

Var   simple: array[1..10000] of integer;   i, j, a, b, simple_n, s: integer;   is_simple: boolean; begin   read(a, b);     for i : = 2 to b do begin       is_simple : = true;       for j : = 1 to simple_n do           is_simple : = is_simple and (i mod simple[j] < > 0);       if is_simple then begin           simple_n : = simple_n + 1;           simple[simple_n] : = i;           writeln(i);           if i > = a then s : = s + i;       end;   end;     writeln(s); end.