звездецделал лабу на заказ заипался прописывать....

это ужаснах!!!!


пожалейте меня
вот тело лабы
do i=1,n
do j=1,m
if(i.ne.1.and.i.ne.n.and.j.ne.1.and.j.ne.m) then !åñëè ïî êðàÿì
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i,j-1).eq.0)then
if(a(i+1,j).eq.0.and.a(i,j+1).eq.0) then
b(i,j)=1
else
b(i,j)=0
endif
else
b(i,j)=0
endif
else
if(j.ne.1.and.j.ne.m)then
if(i.eq.1)then ! ïåðâàÿ ñòðîêà
if(a(i,j).eq.0.and.a(i+1,j).eq.0.and.a(i,j-1).eq.0)then
if(a(i,j+1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
else
b(i,j)=0
endif
endif
if(i.eq.n)then !ïñëåäíÿÿ ñòðîêà
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i,j-1).eq.0)then
if(a(i,j+1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
else
b(i,j)=0
endif
endif
endif
if(i.ne.1.and.i.ne.n)then
if(j.eq.1)then !ïåðâûé ñòîëáåö
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i+1,j).eq.0)then
if(a(i,j+1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
else
b(i,j)=0
endif
endif
if(j.eq.m)then !ïîñëåäíèé ñòîëáåö
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i+1,j).eq.0)then
if(a(i,j-1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
else
b(i,j)=0
endif
endif
endif
if(i.eq.1)then
if(j.eq.1)then
if(a(i,j).eq.0.and.a(i+1,j).eq.0.and.a(i,j+1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
endif
if(j.eq.m)then
if(a(i,j).eq.0.and.a(i+1,j).eq.0.and.a(i,j-1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
endif
endif
if(i.eq.n)then
if(j.eq.1)then
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i,j+1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
endif
if(j.eq.m)then
if(a(i,j).eq.0.and.a(i-1,j).eq.0.and.a(i,j-1).eq.0)then
b(i,j)=1
else
b(i,j)=0
endif
endif
endif


endif
enddo
enddo