Информатика Практика / 5

Program praktika5;
Uses CRT;
Const n=7;
Var a: Array [1..n] Of Integer;
i, k, z, count, count1: Integer;
Begin
For i:= 1 to n Do
Begin
Write('Введите число: ');
ReadLn(k);
a[i]:=k;
End;
WriteLn;
WriteLn('Исходный вектор:');
WriteLn;
For i:= 1 to n Do
Begin
Write(a[i]:5);
End;
WriteLn;
count:=1;
count1:=1;
For i:= 1 to n-1 Do
Begin
If (a[i]=a[i+1])
Then
Begin
z:=a[i];
count:=count+1;
End
Else count:=1;
If (count>count1)
Then
Begin
count1:=count;
k:=z;
End;
End;
WriteLn;
WriteLn('Максимальная последовательность из символов "', k,'" длиной в ', count1,' символа');
Readln;
End.