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.
帮忙翻译下，每句是干什么，什么意思，特别是函数调用部分，谢谢
I

不知道 if r(n-i) < 0 then 哪里来的

不知道 if r(n-i) < 0 then 哪里来的