program ed;
const n=15;</br>
var a:array[1..n] of integer;</br>
i,k,max:byte;</br>
Begin
writeln('vvedi znachenie elementov');</br>
for i:=1 to n do readln(a[i]);</br>
k:=0;</br> max:=0;</br>
for i:=1 to n do
if a[i]=0 then k:=k+1 else
begin
if k>max then max:=k;</br>
k:=0;</br>
end;</br>
if k>max then max:=k;</br>
writeln('dlinna maksimalnoi posledovatelnosti ravna',max);</br>
readln;</br>
End.