// K(n, p)
// while - agtig
read n;
read p;
res = 1;
i = 1;
label 1;
if p < i goto 2;
temp = n - i;
temp = temp + 1;
res = res * temp;
res = res / i;
i = i + 1;
goto 1;
label 2; 
write res;
end;

Eller

// K(n, p)
// repeat - agtig
read n;
read p;
res = 1;
i = 0;
label 1;
i = i + 1;
temp = n - i;
temp = temp + 1;
res = res * temp;
res = res / i;
if i < p goto 1;
write res;
end;