Four Number Game by uru

var a,b,c,d,e:word;begin
repeat
read(a,b,c,d);repeat
writeln(a,^`,b,^`,c,^`,d);e:=a;a:=abs(a-b);b:=abs(b-c);c:=abs(c-d);d:=abs(d-e)until-d=e;writeln;until 1=0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page