#define f(x)x);x:=abs(x- var a,b,c,d,e:word;begin repeat read(a,b,c,d);repeat writeln(a,^`,b,^`,c,^`,d);e:=(f(a)f(b)f(c)f(d)e)until-d=e;writeln until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page