usaco 3.2 ratios 2008.7.20

program p_radios;
const fin='ratios.in';fout='ratios.out';
var x,y,z:array[1..3]of longint;
flag,k,a,b,c,i,j,p,n1,n2,n3:longint;
f1,f2:text;
function max(x1,x2,x3:longint):longint;
begin
if x1<x2 then max:=x1 else max:=x2;
if x3<max then max:=x3;
end;
function deal(k:longint):longint;
var ka,kb,kc:longint;
w:array[1..9]of longint;
begin
ka:=k*a;kb:=k*b;kc:=k*c;
if x[1]<>0 then w[1]:=ka div x[1] else w[1]:=200;
if y[1]<>0 then w[2]:=kb div y[1] else w[2]:=200;
if z[1]<>0 then w[3]:=kc div z[1] else w[3]:=200;
if x[2]<>0 then w[4]:=ka div x[2] else w[4]:=200;
if y[2]<>0 then w[5]:=kb div y[2] else w[5]:=200;
if z[2]<>0 then w[6]:=kc div z[2] else w[6]:=200;
if x[3]<>0 then w[7]:=ka div x[3] else w[7]:=200;
if y[3]<>0 then w[8]:=kb div y[3] else w[8]:=200;
if z[3]<>0 then w[9]:=kc div z[3] else w[9]:=200;
n1:=max(w[1],w[2],w[3]);
n2:=max(w[4],w[5],w[6]);
n3:=max(w[7],w[8],w[9]);
if (n1>100)and(n2>100)and(n3>100) then exit(2);
for i:=0 to n1 do
for j:=0 to n2 do
for p:=0 to n3 do
if (i*x[1]+j*x[2]+p*x[3]=ka)and (i*y[1]+j*y[2]+p*y[3]=kb)
and (i*z[1]+j*z[2]+p*z[3]=kc)then exit(1);
end;

begin
assign(f1,fin);reset(f1);assign(f2,fout);rewrite(f2);
read(f1,a,b,c);
for i:=1 to 3 do read(f1,x[i],y[i],z[i]);
flag:=0;k:=0;
repeat
inc(k);flag:=deal(k);
until flag>0;
case flag of
1:writeln(f2,i,' ',j,' ',p,' ',k);
2:writeln(f2,'NONE');
end;
close(f1);
close(f2);
end.