Помогите усовершенствовать программу.

[manas_anarov]

Третья задача отсюда http://allmatematika.ru/page.php?25.0, эту задачу я уже решил, но хочу увидеть вариант решения лучше моего.

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
var
  k:integer;
  z:integer;
  n:integer;
  c:integer;
  d:integer;
  a:real;
  begin

    z:=1;
    n:=3;
    c:=20;
    d:=20;

    for k:=2 to  n do
    begin
      c:=c-1;
      z:=z*d*(c);
      d:=1;
    end;

    a:=z;
    a:=a/6;

    ShowMessage('Example_3='+FloatToStr(a));

  end; 

[Padre_Mortius]

manas_anarov, дабы проверить ваш алгоритм внесите в него небольшое изменение (увеличьте количество дежурных до 4-х (изменением только одной переменной N)) и проверьте как отработает ваш алгоритм. Сразу увидите ошибку.