Hà Quang Tất Đạt

const
        fi = 'b5d6.inp';
        fo = 'b5d6.out';
var n,m,i,j,resmin,d: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n);
        for i:=1 to m do
          for j:=1 to n do
                read(a[i,j]);
        resmin:=a[1,1];
        for i:=1 to m do
          for j:=1 to n do
                if a[i,j] < resmin then resmin:= a[i,j];
        writeln(resmin);
        d:=0;
        for i:=1 to m do
          for j:=1 to n do
                if a[i,j] = resmin then inc(d);
        writeln(d);
close(input);close(output);
end.

const
        fi = 'b4d6.inp';
        fo = 'b4d6.out';
var n,m,i,j,k,res: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n,k);
        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(input);close(output);
end.

const
        fi = 'b6d6.inp';
        fo = 'b6d6.out';
var n,m,i,j,res: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(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
                res:=a[i,1];
                for j:=1 to n do
                if res < a[i,j] then res:=a[i,j];
                writeln(i,#32,res,#32);
        end;
close(input);close(output);
end.

const
        fi = 'b7d6.inp';
        fo = 'b7d6.out';
var n,m,i,j,res: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n);
        for i:=1 to m do
        for j:=1 to n do
                read(a[i,j]);
        for j:=1 to n do
        begin
                res:=a[1,j];
                for i:=1 to m do
                if res > a[i,j] then res:=a[i,j];
                writeln(j,#32,res);
        end;
close(input);close(output);
end.

const
        fi = 'b9d6.inp';
        fo = 'b9d6.out';
var n,m,i,j,p: longint;
        a:array [1..100,1..100] of longint;
begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(m,n);
        for i:=1 to m do
        for j:=1 to n do
                read(a[i,j]);
        p:=0;
        for i:=1 to m do
        for j:=1 to n do
                if sqrt(a[i,j]) = trunc(sqrt(a[i,j])) then
                begin
                        write(i,'/',j,#32);
                        p:=1;
                end;
                if p=0 then write('-1');
close(input);close(output);
end.

const
        fi = 'b8d6.inp';
        fo = 'b8d6.out';
var n,m,i,j,s : longint;
        a  : array [-7..100,-7..100] of longint;
        hang,cot: array [-7..300] of longint;

begin
        assign (input,fi) ;reset(input);
        assign (output,fo);rewrite(output);
        readln(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
                s:=0;
                for j:=1 to n do
                        s:= s + a[i,j];
                        hang[i] := s;

                end;
        for j:=1 to n do
                begin
                s:=0;
                for i:=1 to m do
                        s:= s +a[i,j];
                        cot[j]:=s;

                end;
        for i:=1 to m do
                writeln('hang-',i,' ',hang[i],#32);
        for j:=1 to n do
                writeln('cot-',j,' ',cot[j],#32);
close(input);close(output);
end.

const
        fi = 'b1d7.inp';
        fo = 'b1d7.out';
var  a:array[-3..300,-3..300] of longint;
      m,n,i,j: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(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
                        writeln(a[i,j]);
        end;
close(input);close(output);
end.

const
        fi = 'xau1.inp';
        fo = 'xau1.out';
var s: string;
        i: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        writeln(s,#32,length(s));
close(input);close(output);
end.

const
        fi = 'xau2.inp';
        fo = 'xau2.out';
var s,s1: string;
        p,i: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        readln(s1);
        //for i:=1 to length(s1) do
        p:=pos(s,s1);
        write(p);
close(input);close(output);
end.

const
        fi = 'xau3.inp';
        fo = 'xau3.out';
var s,s1: string;
        p,i,d: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        readln(s1);
        d:=0;
        while pos(s,s1) > 0  do
        begin
        inc(d);
        delete(s1 , 1 , pos(s,s1) + length(s)-1);
        end;
        write(d);
close(input);close(output);
end.

const
        fi = 'xau4.inp';
        fo = 'xau4.out';
var s,s1,s2: string;
        i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s1);
        readln(s2);
        s:=s1+s2;
        write(s);
close(input);close(output);
end.

[code]const
        fi = 'xau5.inp';
        fo = 'xau5.out';
var s: string;
        i,d : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        d:=0;
        for i:=1 to length(s) do
        if (s[i] >= '0') and (s[i] <= '9') then
        inc(d);
        write(d);
close(input);close(output);
end.





[/code]

const
        fi = 'xau6.inp';
        fo = 'xau6.out';
var s: string;
        i,d : longint;
function xdao(u : string) : string;
var t: string;
    i: longint;
        begin
                t:='';
                for i:=1 to length(u) do
                t:= s[i] + t;
                exit(t);
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        write(xdao(s));
close(input);close(output);
end.

const
        fi = 'xau7.inp';
        fo = 'xau7.out';
var s: string;
        i,d : longint;
function xdao(u : string) : string;
var t: string;
    i: longint;
        begin
                t:='';
                for i:=1 to length(u) do
                        t:= s[i] + t;
                exit(t);
        end;
function palin( u : string) : boolean;
        begin
                if (u = xdao(u)) then
                exit (true)
                else
                exit (false);
        end;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        write(palin(s));
close(input);close(output);
end.

const
        fi = 'xau8.inp';
        fo = 'xau8.out';
var s: string;
    i: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        for i:=1 to length(s) do
        begin
        s[i] := upcase(s[i]);
        end;
        write(s);
close(input);close(output);
end.

const
        fi = 'xau9.inp';
        fo = 'xau9.out';
var s: string;
    i: longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        for i:=1 to length(s) do
        begin
        s[i] := upcase(s[i]);
        end;
        for i:=1 to length(s) do
        s[i]:= chr(ord(s[i]));
        write(s);
close(input);close(output);
end.

const
        fi = 'xau10.inp';
        fo = 'xau10.out';
var s : string;
    i,l : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        read(s);
        while s[1] = '#32' do
              delete(s, 1, 1);
        s[l] := length(s);
        while s[l] = '#32' do
              delete(s, l, 1);
        while pos(#32#32,s) > 0 do
              delete(s, pos(#32#32,s), 1);
        write(s);
close(input);close(output);
end.

const
        fi = 'xau11.inp';
        fo = 'xau11.out';
var s : string;
    i,d,l : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        read(s);
        d:=0;
        while s[1] = '#32' do
                delete(s, 1 , 1);
        while s[length(s)] = '  ' do
                delete(s, length(s) , 1);
        while pos(#32#32 , s) > 0 do
                delete(s, pos( #32#32 , s) , 1);
        if s[1] <> #32 then inc(d);
        for i:=1 to length(s) do
                if (s[i] = #32 ) then inc(d);
        write(d);
close(input);close(output);
end.

const
        fi = 'xau12.inp';
        fo = 'xau12.out';
var s : string;
    i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        read(s);
        while s[1] = '#32' do
                delete(s, 1 , 1);
        while s[length(s)] = '  ' do
                delete(s, length(s) , 1);
        while pos(#32#32 , s) > 0 do
                delete(s, pos( #32#32 , s) , 1);
                s[1] := upcase(s[1]);
        for i:=1 to length(s) do
                if (s[i] = ' ' ) then s[i+1]:=upcase(s[i+1]);
        write(s);
close(input);close(output);
end.

const
        fi = 'xau14.inp';
        fo = 'xau14.out';
var s,x : string;
    i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        read(s);
        x := '';
        s :=s + 'a';
        for i:=1 to length(s) do
                if  s[i] in ['0'..'9'] then  x := x + s[i]  else
                if (s[i] ='-') and (x ='')  then x := s[i]  else
                if length(s) >  0 then
                        begin
                                if x <> '-' then
                                write(x,#32);
                                if (s[i] =  '-') then x:='-' else x:='';
                        end;

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

uses crt;
const
        fi = 'xau15.inp';
        fo = 'xau15.out';
var s,xau : string;
    i: longint;
    max: char;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        max:='0';
        for i:=1 to length(s) do
                if (s[i] in ['1'..'9']) and (s[i]>max) then max:=s[i];
                if pos(max,s)=0 then write(-1)
                else write(max);
                write(max);
close(input);close(output);
end.

const
        fi = 'xau10c2.inp';
        fo = 'xau10c2.out';
var s,s1: string;
    p : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        s:=' ' + s;
        s1:= '  ';
        while pos(s1,s) > 0 do
                begin
                        p:= pos(s1,s);
                        delete(s,p,1);
                end;
        if s[1] = #32 then delete(s,1,1);
        if s[length(s)] = #32 then delete(s,length(s),10);
        write(s);
close(input);close(output);
end.

const
        fi = 'xau11c2.inp';
        fo = 'xau11c2.out';
var s,s1  : string;
    p,d,i : longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        s:=' ' + s;
        s1:= '  ';
        while pos(s1,s) > 0 do
                begin
                        p:= pos(s1,s);
                        delete(s,p,1);
                end;
        d:=0;
        if s[1] = #32 then delete(s,1,1);
        if s[length(s)] = #32 then delete(s,length(s),10);
        for i:=1 to length(s) do
                if s[i] = #32 then inc(d);
        write(d+1);
close(input);close(output);
end.

const
        fi = 'xau13.inp';
        fo = 'xau13.out';
var s,s1  : string;
    p,d,i,j,n : longint;
    tam : char;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        n:= length(s);
        for i:=1 to n-1 do
                for j:=i+1 to length(s) do
                if s[i] > s[j] then
                        begin
                                tam := s [i];
                                s[i]:= s [j];
                                s[j]:= tam;
                        end;
        d:=1;
        for i:=1 to n do
                if s[i] = s[i+1] then inc(d)
                else
                        begin
                                writeln(s[i],#32,d);
                                d:=1;
                        end;
close(input);close(output);
end.

const
        fi = 'xau14c2.inp';
        fo = 'xau14c2.out';
var s,t  : string;
    k,i,x : longint;
    c : array[1..100] of longint;
begin
        assign(input,fi);reset(input);
        assign(output,fo);rewrite(output);
        readln(s);
        k:=0 ;
        s:= s + ' ';
        s:= ' ' + s;
        for i:=1 to length(s) do
                if s[i] in ['0'..'9'] then
                        t := t + s[i]
                else
                        if t <> '' then
                        begin
                                val(t,x);
                                k := k+1;
                                c[k] := x;
                                t := '';
                        end;
        for i:=1 to k do
        write(c[i],#32);
close(input);close(output);
end.