var a,b,c,d:word;begin repeat a:=b;read(b)until eoln;repeat c:=a;a:=b;b:=(a+c)mod 10;write(b,^`);inc(d)until d>99end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page