RAOCAY Pascal

var     h:array[1..4] of longint=(-1,0,1,0);
        c:array[1..4] of longint=(0,1,0,-1);
        a:array[0..1001,0..1001] of longint;
        m,n,s:longint;

procedure nhap;
var i,j:longint;
begin
        readln(m,n);
        for i:=1 to m do
        begin
                for j:=1 to n do read(a[i,j]);
                readln;
        end;
end;
function dem(x,y:longint):longint;
var     i,d:longint;
begin
        d:=0;
        for i:=1 to 4 do
                if a[x+h[i],y+c[i]]=0 then inc(d);
        exit(d);
end;
procedure giai;
var i,j:longint;
begin
        for i:=1 to m do
                for j:=1 to n do
                        if a[i,j]=1 then
                                s:=s+dem(i,j);
        write(s);
end;
begin
        assign(input,'raocay.inp');reset(input);
        assign(output,'raocay.out');rewrite(output);
        nhap;
        giai;
end.