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

program zz1;

var x, y, k, max:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое число последовательности

y: = x; / / запоминаем его

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x); / / вводим следующее число последовательности

if x = y then k:=k + 1 else k:=0;

if k > max then max:=k;

y:=x;

end;

write (' наибольшее число подряд идущих элементов этой последовательности равных друг другу = ', max + 1);

end.