const
num = 5;
var
n: integer;
function r(n : integer) : integer;
var
i : integer;
begin
if n <= num then
begin
r :=
n;
exit;
end;
for i :=1 to num do
if
r(n-i) < 0 then
begin
r:=i;
exit;
end;
r:=-1;
end;
begin
readln(n);
writeln(r(n));
end.
(1)
输入:7
输出：__________(4分)
(2)
输入 16
输出：__________(4分)I

求算法。。整个什么意思没搞懂，求解

R（n）明显就是12345－1一个循环