рекурсия

[-Spirit-]

помогите довести до ума рекурсию
нужно для сокращения числа итераций учесть свойство симетрии c(n,r)=c(n, n-r)

program fPaskal;
var
r,n:integer;
function c(r,n:integer):integer;
begin
if (r=0) or (r=n) then c:=1 else c:=c(n-1,r)+c(n-1,r-1);
end;
begin
writeln('n i r');
readln(n,r);
writeln(c(n,r));
end.

[evg_m]

вар1 if r>n div 2 then c:=c(n, n-r)

вар2 if n-r<r then c:=c(n,n-r)