#define f(x)x);x:=abs(x- var a,b,c,d,e:word;begin repeat read(a,b,c,d);repeat e:=d;writeln(a,^`,b,^`,c,^`,f(d)f(a)f(b)f(c)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