Поправте программу....

[netcher]

Написать программу с использованием рекурсии, для определения, сколько существует способов назначить дежурными трёх учеников в класе за формулой n!/(m!(n-m)!). Где n - количество черговых (3).
m - количество учеников в класе(30).

uses crt;
var n,m,w:integer;
y,q,j:longint;
e:real;
function F(x:integer):longint;
begin
if x=1 then F:=1
else F:=x*F(x-1);
end;
begin
clrscr;
write ('vvedite kilkist chergovih n=');
textcolor(2);
readln(n);
textcolor(7);
write('vvedite kilkist ychniv m=');
textcolor(2);
readln(m);
y:=F(n);
q:=F(m);
w:=n-m;
j:=F(w);
e:=y/(q*j);
textcolor(7);
writeln('vsego sposobov ',e);
readln;
end.

В этой программе выдает ошибку, помогите исправить

[Sazary]

Ошибка здесь:

w:=n-m;

m больше n. Поэтому надо

w := m-n;

Но только с теми числами, что у вас в условии:

Где n - количество черговых (3).
m - количество учеников в класе(30).

Работать все равно не будет. Т.к. такие числа (F(30) и F(27)) не влезут ни в один тип.