Задача 8.2. Скласти програму для обчислення
числа сполук
Розв'язання. Нагадаємо, що Тому необхiдно обчислити факторiал трьох величин n, k i n-k. Очевидно, що обчислення факторiала краще оформити у виглядi пiдпрограми. Пiдпрограму напишемо у виглядi процедури, якiй передаїться натуральне число n i яка повертає його його факторiал у змiннiй f.

Program Spoluka;
Var n,k,f1,f2,f3:integer;
Procedure Factorial(n:integer; Var f:integer);
Var {роздiл опису змiнних процедури}
  i: integer;
Begin {початок роздiлу операторiв процедури}
   f:=1;
 for i:=1 to n do f:=f*i;
End; {кiнець процедури}
Begin {початок основної програми} 
 WriteLn('Введiть числа n i k ');
 Read(n,k);
 Factorial(n,f1); {Виконати процедуру}
 Factorial(k,f2);
 Factorial(n-k,f3);
 WriteLn('Число сполук iз ',n,' по ',k,' рiвне ',
            f1/(f2*f3):8:2);
End. {кiнець програми}

Результати роботи програми:
Введiть числа n i k 2 3
Число сполук iз 2 по 3 рiвне 0.33