Сколькими способами можно распределить уроки в N классах (N – четное число) между M (M=N div 2) учителями, если каждый учитель будет преподавать в дву

program ZADANIE_08;
uses crt;
Var
n,k,i,fk,fn:longint;
c:real;
BEGIN
clrscr;
repeat
write('Введите число классов: ');
read(n);
if n mod 2 <>0 then begin
write('Введите число классов заново:');
read(n);
end;
until n mod 2=0;
k:=n div 2;
fn:=1;fk:=1;
for i:=2 to n do begin
fn:=fn*i;
end;
for i:=2 to k do begin
fk:=fk*i;
end;
if n=2 then c:=1
else c:=  fn/(fk*fk);
writeln('Число способов распределения:',c);

program ZADANIE_08;
uses crt;
Var n,k,i,fn,fk:longint;
    c:real;
BEGIN
write('Введите число классов: ');
repeat
read(n);
if (n<2)or(n mod 2<>0) then
writeln('Введите число классов заново:');
until (n>1)and(n mod 2=0);
if n=2 then c:=1
else
 begin
  k:=n div 2;
  fn:=1;fk:=1;
  for i:=2 to n do fn:=fn*i;
  for i:=2 to k do fk:=fk*i;
  c:=fn/(fk*fk);
 end;
writeln('Число способов распределения:',c:0:0);
end.

program ZADANIE_08;
uses crt;
Var n,k,i,j:longint;
    fn,fk,c,res:real;
BEGIN
write('Введите количество учителей: ');
repeat
read(k);
if k<1 then
writeln('Введите количество учителей заново:');
until k>0;
if k=1 then res:=1
else
 begin
  res:=0;
  for i:=1 to k do
   begin
    if i=1 then c:=1
     else
      begin
       n:=2*i;
       fn:=1;fk:=1;
       for j:=2 to n do fn:=fn*j;
       for j:=2 to i do fk:=fk*j;
       c:=fn/(fk*fk);
      end;
     writeln('Количество учителей=',i:2,'  Число способов распределения:=',c:0:0);
     res:=res+c;
   end;
 end;
writeln('Всего=',res:0:0);
end.