{WOBURN CHALLENGE VII} {PROGRAM FARM} var A, B, P, F, H, L, E, T: longint; k: integer; inf, outf: text; bad: boolean; {ape, bison, parrot, fish, heads, legs, eyes, tails} begin assign(inf, 'farm.in'); assign(outf, 'farm.out'); reset(inf); rewrite(outf); readln(inf, k); while k>0 do begin dec(k); bad:=false; readln(inf, H, L, E, T); A:=H-T; F:=2*E-L-2*A; if F mod 6 <>0 then bad:=true; F:=F div 6; B:=E-T-2*A-2*F; P:=T-B-F; if (A<0) or (F<0) or (B<0) or (P<0) then bad:=true; if bad then writeln(outf, 'FUNNY FARM') else writeln(outf, A, ' ', B, ' ', P, ' ', F); end; close(inf); close(outf); end. Downloader failed! Response object 006~ASP 0159~Buffering Off~Buffering must be on.