program mn;
uses crt;
var a:array[1..100]of integer;
m,k,i,n:integer;
BEGIN
ClrScr;
Write('N:');readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(40);
write(a[i]:3);
end;
m:=1;i:=1;
While i While a[i] begin
inc(i);inc(k);
end;
if k>m
then m:=k;k:=1;
inc(i);
end; writeln;
writeln(m);
readln;
END.