В чем проблема?? Можете написать перебор??
var r1,r2,c1,c2,d1,d2,x,z,y,m:longint; i,j:longint;a:array[1..10,1..10]of longint; begin readln(r1,r2,c1,c2,d1,d2); m:=(d1+c2-r1)div 2; y:=(r2-d1+c1)div 2 ; x:=c1-y; z:=c2-m; if (m=y)or(m=x)or(m=z)or(y=x)or(y=z)or(z=x)then begin writeln(-1);halt; end; writeln(x,' ',z); writeln(y,' ',m); end.