Найти количество сочетаний из n по k и вывести все комбинации этих сочетаний на экран

[Рон99]

Нужна помощь в решении задачи, есть примерно пол задачи но дальше не знаю как решать

[Arigato]

И где эта половина?

[Рон99]

uses crt;
var n,k,i,j,l,x,s:integer;p,p1,p2,c:real;a:array[1..13] of integer;
begin
writeln('n');
readln(n);
writeln('k');
readln(k);
p:=1;
for i:=1 to n do
p:=p*i;
p1:=1;
for j:=1 to k do
p1:=p1*j;
x:=n-k; p2:=1;
for l:=1 to x do
p2:=p2*l;
c:=p/(p1*p2);
writeln(c:5:2);readln; end.

вот она



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.