program binomi_f;


uses  crt;
var   n,k : word;
   a,b    : string;

function nfac (n : word):qword;
begin
   if n=0 then nfac := 1
   else nfac:= n*nfac(n-1)

end; { nfac }
function n_ueber_k (n,k :  integer):qword;
begin
   n_ueber_k:= nfac(n)DIV(nfac(n-k)*nfac(k))

end; { n_ueber_k }



begin

   writeln('Binom (a + b)^n');
   write('a = '); readln(a);
   write('b = '); readln(b);
   write('n = '); readln(n);

   For k := 0 to n do
      begin
         write(n_ueber_k(n,k), ' * ', a, '^', n-k, ' * ', b, '^', k);    {Ausgabe a und b}
         If n <> k then write(' + ') else writeln;
      end;

end.