BANCO Pascal

var a:array[0..10,0..10] of char;
        h,c,ch1,ch2:array[0..10,0..10] of longint;
    i,j,max:longint;

procedure nhap;
begin
        For i:=1 to 8 do
        begin
                For j:=1 to 8 do read(a[i,j]);
                readln;
        end;
end;

procedure xuli;
begin
        For i:=1 to 8 do
                for j:=1 to 8 do
                begin
                        if a[i,j]='1' then
                        begin
                                h[i,j]:=h[i,j-1]+1;
                                c[i,j]:=c[i-1,j]+1;
                                ch1[i,j]:=ch1[i-1,j-1]+1;
                                ch2[i,j]:=ch2[i-1,j+1]+1;
                        end
                        else
                        begin
                                h[i,j]:=0;
                                c[i,j]:=0;
                                ch1[i,j]:=0;
                                ch2[i,j]:=0;
                        end;
                end;
        max:=0;
        for i:=1 to 8 do
                for j:=1 to 8 do
                begin
                        if h[i,j]>max then max:=h[i,j];
                        if c[i,j]>max then max:=c[i,j];
                        if ch1[i,j]>max then max:=ch1[i,j];
                        if ch2[i,j]>max then max:=ch2[i,j];
                end;

        writeln(max);
    end;

begin
assign(input,'banco.inp');reset(input);
assign(output,'banco.out');rewrite(output);
nhap;
xuli;
end.