Đỗ Hoàng Phúc

var
    i,j,n,m : longint;
    a : array[-3..300,-3..300] of longint;
begin
   assign(input, 'no1.inp');reset(input);
   assign(output, 'no1.out');rewrite(output);

      read(m,n);
      for i := 1 to m do
         for j := 1 to n Do
            read(a[i,j]);
      for i := 1 to m do
         begin
            for j := 1 to n do
               write(a[i,j],#32);
            writeln;
         end;

   close(input);close(output);
end.

var
   i,j,n,m: longint;
   res : Int64;
   a : array[-3..300,-3..300] of longint;
begin
    assign(input, 'no2.inp');reset(input);
    assign(output,'no2.out');rewrite(output);

       read(m,n);
       for i := 1 to m do
          for j := 1 to n do
             read(a[i,j]);
       res := 0;
       for i := 1 to m do
          begin
             for j := 1 to n do
                if a[i,j] mod 2 = 0 then res := res + a[i,j];
          end;
       write(res);

    close(input);close(output)
 end.

var
   i,j,n,m,k,dem: longint;
   a : array[-3..300,-3..300] of longint;
begin
    assign(input, 'no3.inp'); reset(input);
    assign(output, 'no3.out'); rewrite(output);

       read(m,n,k);
       for i := 1 to m do
          for j := 1 to n do
             read(a[i,j]);
       dem := 0;
       for i := 1 to m do
          begin
              for j := 1 to n do
                 if a[i,j] = k then inc(dem);
           end ;
       writeln(dem);

    close(input);close(output)
 end .

var
   i,j,m,n,k,x: longint;
   a : array[-3..300,-3..300] of longint;
begin
   assign(input, 'no4.inp');reset(input);
   assign(output,'no4.out');rewrite(output);

      readln(m,n,k);
      for i := 1 to m do
         for j := 1 to n do
            begin 
             read(x);
             a[i,j] := x mod k;
            end;
      for i := 1 to m do
         for j := 1 to n do
            if a[i,j] = 0 then writeln(i,#32,j); 

   close(input);close(output);
end.

var
   i,j,m,n,res: longint;
   a : array[-3..300,-3..300] of longint;
begin
   assign(input, 'no5.inp');reset(input);
   assign(output, 'no5.out');rewrite(output);

      read(m,n);
      for i := 1 to m do
         for j := 1 to n do
            read(a[i,j]);
      res := a[1,1];
      for i := 1 to m do
         for j := 1 to n do
            if a[i,j] > res then res := a[i,j];   
      writeln(res);
   close(output);close(input);
end.

var
   i,j,n,m,res,rmin: Longint;
   a : array[-3..300,-3..300] of longint;
begin
    assign(input,'no7.inp');reset(input);
    assign(output,'no7.out'); rewrite(output);

       read(m,n);
      for i := 1 to m do
         for j := 1 to n do
            read(a[i,j]);
      rmin := a[1,1];
      for i := 1 to m do
         for j := 1 to n do
            if a[i,j] < rmin then rmin := a[i,j];
      res := 0;
      for i := 1 to m do
         for j := 1 to m do
            if a[i,j] = rmin then inc(res);
      writeln(res); 

    close(output);close(input);
 end.

var
 a : String;
begin
 assign(input,'no1.inp'); reset(input);
 assign(output, 'no1.out'); rewrite(output);
 readln(a);
 writeln(a);
 close(input);close(output);
end.

var
   a,b : String;
begin
   assign(input, 'no2.inp'); reset(input);
   assign(output, 'no2.out'); rewrite(output);
      readln(a);
      readln(b);
      write(pos(a, b));
   close(input); close(output);
end.

var
   s,s2: String;
   res : Longint;
begin
   assign(input, 'no3.inp');reset(input);
   assign(output, 'no3.out'); reset(output);
      readln(s);
      readln(s2);
      res := 0;
      while pos(s,s2) > 0 do
      begin
         inc(res);
         delete(s2, 1, pos(s,s2)+ length(s)-1);
      end;
   close(input);close(output);
end.

var
   s,s1,s2: String;
begin
   assign(input, 'no4.inp'); reset(input);
   assign(output, 'no4.out'); rewrite(output);
      readln(s1);
      readln(s2);
      s := s1 + s2;
      writeln(s);
   close(input);close(output);
end.

var
   s : String;
   i,res : Longint;
begin
   assign(input, 'no5.inp'); reset(input);
   assign(output, 'no5.out'); rewrite(output);
      readln(s);
      res := 0;
      for i := 1 to length(s) do
         if ('0' <= s[i]) and (s[i] >= '9') then inc(res);
      writeln(res);
   close(input);close(output);      
end   .

var
 s: String;
function island (u: String) : String ;
var
 tam : String= '';
 i : Longint;
begin
 for i := 1 to length(u) do
 tam := s[i]+ tam;
 exit(tam);
end;
begin
 assign(input, 'no5.inp'); reset(input);
 assign(output, 'no5.out'); rewrite(output);
 readln(s);
 writeln(island(s));
 close(input); close(output);
end.

var
 s: String;
 t : Char;
 i,n,j: Longint;
begin
 readln(s);
 n := length(s);
 for i := 1 to n-1 do
 for j := i +1 to n do
 if s[i] <> s[j] then
 begin
 t := s[i];
 s[i] := s[j];
 s[j] := t;
 end;
 writeln(s);
end.

var
   res,i: longint;
   s : String;
begin
   readln(s);
   res := 0;
   for i := 1 to length(s) do
      if s[i] = 'a' then inc(res);
   writeln(res);
end.

var
   s,sa : String;
   i,n,res,k: longint;
   c : array[1..100000] of longint;
begin
   readln(s);
   res := 1;
   sa := '' ;
   k := 0;
   for i := 1 to length(s) do
      if s[i] = s[i + 1] then
         res := res + 1
      else
         begin
            sa := sa + s[i];
            inc(k);
            c[k] := res;
            res := 1;
         end;
   for i := 1 to k do
      write(sa[i],c[i]);
end.

var
   s,sa,st,sres: String;
   c : array[1..100000] of longint;
   i,k,x,j:longint;
begin
   readln(s);
   st:='';
   sa := '';
   i := 1;
   while(i <= length(s)) Do
      if (s[i] >= '0') and (s[i] <= '9') then
         begin
            st := st + s[i] ;
            inc(i);
         end
      else
         if st <>''  then
            begin
               val(st,x);
               inc(k);
               c[k]:= x;
               st := '';
            end
         else
            begin
               sa := sa + s[i];
               inc(i);
            end;
   sres := '';
   for i := 1 to k do
      begin
         for j := 1 to c[i] do
            sres := sres + sa[i];
      end;
   writeln(sres);
end.

var
   s ,s1 : String;
   p : Longint;
begin
   readln(s1);
   readln(s);
   while (pos(s1, s)>0) and (s <> '') do
      begin
          p := pos(s1, s);
          delete(s,1,p);
       end;
   write(s);
end.

var
   n: Longint;
   e : array[1..100000] of Longint;

procedure xuli();
var
   i : Longint;
begin
   for i := 1 to n do
      write(e[i],#32);
   writeln;
end;

procedure thu (i : Longint);
var
   j : Longint;
begin
   for j := 0 to 1 do
      begin
         e[i] := j;
         if i = n then
            xuli
         else
            thu(i+1);
       end;
end;

begin
    assign(input, 'dqbn.inp'); reset(input);
    assign(output,'dqbn.out'); rewrite(output);

    readln(n);
    thu(1);

    close(input);close(output)
 end .

var
   n: Longint;
   e : array[1..100000] of Longint;

procedure xuli();
var
   i,p : Longint;
begin
   p := 1;
   for i := 1 to n-1 do
   if e[i] + e[i+1] + e[i+2] = 3 then
      begin
          p:=0;
          break;
       end;
   if p = 1 then
      begin
         for i := 1 to n do
               write(e[i],#32);
         writeln;
      end;
end;

procedure thu (i : Longint);
var
   j : Longint;
begin
   for j := 0 to 1 do
      begin
         e[i] := j;
         if i = n then
            xuli
         else
            thu(i+1);
       end;
end;

begin
    assign(input, 'dqbn2.inp'); reset(input);
    assign(output,'dqbn2.out'); rewrite(output);

    readln(n);
    thu(1);

    close(input);close(output)
 end .

var
 s: String;
begin
 assign(input, 'no82.inp'); reset(input);
 assign(output, 'no82.out'); rewrite(output);
 readln(s);
 writeln(s,#32,length(s));
 close(input);close(output);
end.

var
   s,s1: String;
begin
   assign(input, 'no2.inp'); reset(input);
   assign(output, 'no2.out'); rewrite(output);
   readln(s);
   readln(s1);
   writeln(pos(s1, s));
   close(input);close(output);
end.

var
   s,s1 : String;
   p,res : Longint;
begin
   assign(input, 'no3.inp'); reset(input);
   assign(output,'no3.out'); rewrite(output);
   readln(s);
   readln(s1);
   res := 0;
   while pos(s1, s) <> 0 do
   begin
      p := pos(s1,s);
      inc(res);
      delete(s, 1, p);
      
   end;
   writeln(res);
   close(input);close(output);
end.

var
   s,s1 : String;
function dls (a,b : String): Longint;
var
   res ,p: longint;
begin
   res := 0;
   while pos(b, a) <> 0 do
   begin
      p := pos(b,a);
      inc(res);
      delete(a, 1, p);   
   end;
   exit(res);
end;

begin
   assign(input, 'no3.inp'); reset(input);
   assign(output,'no3.out'); rewrite(output);
   readln(s);
   readln(s1);
   writeln(dls(s1,s));
   close(input);close(output);
end.

var
   s : String;
function dso (u : String): Longint;
var
   res, i: longint;
begin
   res := 0;
   for i := 1 to length(u) do
      if (u[i] >= '0') and (u[i] <= '9') then inc(res);
   exit(res); 
end;
begin
   assign(input, 'no5.inp'); reset(input);
   assign(output, 'no5.out'); rewrite(output);
      readln(s);
      writeln(dso(s));
   close(input);close(output);
end.

var
   s: String;
   k : Longint;
   c : array[1..100000] of Longint;
procedure tach (u : String);
var
   i,n : Longint;
   s,tam : String;
begin
   tam := '';
   k := 0;
   u:=u+ ' ';
    for i := 1 to length(u) do
       if (u[i] >= '0' ) and (u[i] <= '9') then tam := tam + u[i]
       else
          if length(tam) > 0 then
             begin
                val(tam,n);
                inc(k);
                c[k] := n;
                tam := '';
             end;
       for i := 1 to k do write(c[k],#32 );     
end;
begin

   assign(input, 'no10.inp') ; reset(input);
   assign(output, 'no10.out') ; rewrite(output);
      readln(s);
      tach(s);
   close(input);close(output);

end.