{$S+}
program Pascal;
uses
Crt;
var
n, k: Word;
function n_choose_k(n, k: Word): LongInt;
begin
if KeyPressed then
Halt;
if k = 0 then
n_choose_k := 1
else
if k = n then
n_choose_k := 1
else
n_choose_k := n_choose_k(n - 1, k - 1) + n_choose_k(n - 1, k);
end;
begin
ClrScr;
for n := 0 to 10 do
begin
Write(n_choose_k(n, 0):(40 - 3 * n));
for k := 1 to n do
Write(n_choose_k(n, k):6);
WriteLn;
end;
WriteLn;
Write('Ќ*¦¬ЁвҐ <Enter>:'); ReadLn;
end.