program mn;
uses crt;
var a:array[1..100]of integer;
b:array[1..100]of integer;
i,n,k,m,nom,j:integer;
BEGIN ClrSCr;
repeat inc(n);
read(a[n]);
until a[n] =0;
While i begin b[1]:=a[i];
k:=1;
while abs(a[i+1])-abs(a[i])=1 do begin inc(i);
inc(k);b[k]:=a[i];
end;
if k>1 then begin if k>m then begin m:=k;
nom:=i-k;
end;
for j:=1 to k do Write(b[j],' ');
writeln;
end;
inc(i);
end;
writeln;
for i:=nom+1 to nom+k do Write(a[i],' '); Write('dlina:',k);
readln;
readln;
END.