program zadatak_1;

var

ul,iz: Text;

k,m,n,minzbir,minraz,zbir,pred,succ,raz:longint;

i,s,del:integer;

function stepen10(k:integer):longint;

var

i:integer;

res:longint;

begin

res:=1;

for i:=1 to k do

res:=res*10;

stepen10:=res;

end;

function duzina(br:longint): integer;

var

i: integer;

broj: longint;

begin

i:=0;

broj:=br;

repeat

broj:=broj div 10;

i:=i+1;

until (broj=0);

duzina:=i;

end;

begin

assign(ul, 'zad1.in');reset(ul);

assign(iz, 'zad1.out');rewrite(iz);

readln(ul,k);

for i:=1 to k do

begin

readln(ul,n,m);

pred:=n;succ:=0;s:=0;del:=0;

zbir:=pred+succ;

minzbir:=zbir;

minraz:=abs(zbir-m);

while pred<>0 do

begin

s:=s+1;

pred:=(n div stepen10(s));

succ:=(n mod stepen10(s));

zbir:=pred+succ;

if (abs(zbir-m)<minraz)

then

begin

minzbir:=pred+succ;

minraz:=abs(zbir-m);

del:=s;

end;

end;

writeln(iz,duzina(n)-del,' ',duzina(n)-del+1,' ',minzbir);

end;

close(ul);close(iz);

end.

---

program zadatak_2;

var

ul,iz: Text;

n,i,j,len:integer;

s:string[100];

c:char;

begin

assign(ul,'zad2.in');reset(ul);

assign(iz,'zad2.out');rewrite(iz);

readln(ul,n);

for i:=1 to n do

begin

readln(ul,s);

len:=length(s);

for j:=1 to len do

begin

c:=s[j];

if ((ord(c)>96) and (ord(c)<123))

then

s[j]:=chr(ord(c)-32);

end;

writeln(iz,s);

end;

close(ul);close(iz);

end.

---

program zadatak_3;

var

ul,iz:Text;

n,m,i,j:integer;

srvr,suma:real;

mat: array[1..100,1..100] of integer;

begin

assign(ul,'zad3.in');reset(ul);

assign(iz,'zad3.out');rewrite(iz);

readln(ul,n,m);

for i:= 1 to n do

for j:= 1 to m do

read(ul,mat[i,j]);

readln(ul);

suma:=0;

for j:= 1 to m do

begin

srvr:=0;

for i:= 1 to n do

srvr:=srvr+mat[i,j];

srvr:=srvr/n;

suma:=suma+srvr;

end;

write(iz,suma:10:2);

close(ul);close(iz);

end.