{ONOFREI ALEXANDRA

1108

MIHAI VITEAZUL NATIONAL COLLEGE ROMANIA

INTERMEDIATE 3 }

type vect=array [1..9] of integer;

function suma(x:vect):byte;

var s,i:word;

begin

s:=0;

for i:=1 to 9 do s:=s+x[i];

suma:=s;

end;

var f,g:text;max,m,k,i,s,s1,s2:byte;par,a,b:vect;n:byte;

begin

assign(f,'input.txt');

reset(f);

assign(g,'output.txt');

rewrite(g);

while not seekeof(f) do

begin

for i:=1 to 9 do

readln(f,par[i],a[i],b[i]);

s:=suma(par);

s1:=suma(a);

s2:=suma(b);

if (s1<s2) then

begin

if s1< s2 then

writeln(g,s1,',',s2)

else

writeln(g,s2,',',s1);

if (s1=s) then writeln(g,'par')

else if (s1<s) then writeln (g,abs(s-s1),' ','under par')

else writeln(g,abs(s1-s),' ','over par');

if (s2=s) then writeln(g, 'par')

else if (s2<s) then writeln(g,abs(s-s2),' ', 'under par')

else writeln(g,abs(s2-s),'over par');

end

else

begin

writeln(g,s2,',',s1);

if (s1=s) then writeln(g, 'par')

else

if(s1<s) then writeln(g,abs(s-s1),' ', 'under par')

else writeln (g,abs(s1-s),' ', 'over par');

if (s2<s) then writeln(g, abs(s-s2),' ','under par')

else writeln(g,abs(s2-s),' ','over par');

end;

k:=0;

for i:=1 to 9 do

if(s1>s2) then

begin

if(b[i]<a[i]) then inc(k);

end

else

if (a[i]<b[i]) then inc(k);

writeln(g,k);

max:=0;

for i:=1 to 9 do

begin

m:=a[i]+b[i];

if(m >max) then max:=m;

end;

writeln(g,max);

end;

close(f);

close(g);

end.