PROGRAM BAILAM2;USES CRT;CONST FIN1='KTHUOC
BÀI 2.
program bailam2;
uses crt;
const fin1='kthuoc.inp';
fin2='ngang.inp';
fin3='doc.inp';
var f1,f2,f3:text;
a,nga,doc:array[1..100,1..100] of integer;
i,m,n,d,j:integer;
procedure nhap;
var i,j:integer;
begin
assign(f1,fin1); reset(f1);
read(f1,m,n); close(f1);
assign(f2,fin2); reset(f2);
for i:=1 to m do
begin
for j:=1 to n-1 do
read(f2,nga[i,j]);
readln(f2);
end;
close(f2);
assign(f3,fin3); reset(f3);
for i:=1 to m-1 do
for j:=1 to n do
read(f3,doc[i,j]);
readln(f3);
end;
clrscr;
nhap; d:=0;
for i:=1 to m do
if nga[i,j]+nga[i+1,j]+doc[i,j]+doc[i,j+1]=4 then inc(d);
write(d);
readln;
end.