Program xx2010_2;
var a,b,c,d,n,i,j:longint;find:boolean;
f:array[0..9]of longint;

begin
f[0]:=2;f[1]:=3;f[2]:=5;f[3]:=7;f[4]:=11;
f[5]:=13;f[6]:=17;f[7]:=19;f[8]:=23;f[9]:=29;
readln(a,b,c,d);
n:=10;
a:=((f[a]*f[b]-f[c]*f[d]) mod n+n) mod n;
b:=((f[b]* f[c]-f[d]* f[a]) mod n+n) mod n;
c:=((f[c]* f[d]-f[a]* f[b]) mod n+n) mod n;
d:=((f[d]* f[a]-f[b]* f[c]) mod n+n) mod n;
writeln(a,' ',b,' ',c,' ',d);
end.
【输入】：2 3 5 7
输出：8 4 4 6