vbgrass pascal

var    a:array[0..1000,0..1000] of char;
       j,i,m,n,d: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;
procedure giai;
var i,j:longint;
begin
    for i:=1 to m do
        for i:=1 to n do
            if (a[i,j]= '#') and (a[i-1,j]<> '#') and (a[i,j-1]<> '#') then
                inc(d);
    write(d);
end;
begin
   // assign(input, 'vbgrass.inp');reset(input);
   // assign(output, 'vbgrass.out');rewrite(output);
    nhap;
    giai;
end.