{* Задача 93 *}

Unit ZADACH93;
Interface
Implementation
Begin
 writeln('Дана целочисленная таблица A[1:1000]. Подсчитайте наибольшее число идущих в ней подряд одинаковых элементов. ');
End.

Program zadach93;

Uses zadach93.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Const {* Предопределенные *}
  n = 10;
Var {* В работе нам потребуются переменные: *}
  a   : Array [1..n] Of integer;
  i   : integer;
  k   : integer;
  kvo : integer;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Randomize;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    a[i] := Random(3);
  Kvo := 1;
  k := 1;
  For i := 2 To n Do {* Увеличиваем i от 2 до n с шагом 1 *}
  Begin
    If a[i]a[i - 1] Then
      k := 1
    Else inc(k); {* k++ *}
      If k > Kvo Then
        Kvo := K;
  End;
  Write('В массиве есть ', Kvo, ' одинаковых подряд идущих элементов');
End.