graph/castle.pas

   1 var
   2         a:array [0..100,0..100] of longint;
   3         m,n:longint;
   4
   5 begin
   6         readln(m,n);
   7         for i:=1 to m do
   8                 for j:=1 to n do
   9                         read(a[i,j]);
  10         for i:=1 to m do
  11                 for j:=n downto 1 do
  12                         begin
  13                                 if a[i,j]>=8 then begin dec(a[i,j],8); end;
  14                                 if a[i,j]>=4 then begin dec(a[i,j],4); end;
  15                                 if a[i,j]>=2 then begin dec(a[i,j],2); end;
  16                                 if a[i,j]>=1 then begin dec(a[i,j],1); end;
  17                         end;
  18 end.