Bonsoir à tous,

Je cherche à réaliser un programme me donnant (k parmi n). J'ai inséré une fonction auxiliaire pour calculer la factorielle mais le compilateur me renvoie l'erreur :
3 / 1 facto.pas
Fatal: Syntax error, ; expected but VAR found
Malgré mes efforts je ne comprends pas ce qui cloche, merci à celui qui pourra me donner un coup de pouce.

Voici mon programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
PROGRAM aux
VAR p,n,k : integer;
 
function facto (n:integer) : integer;
var f,i : integer;
 
 begin
   f:=1;
   for i:=1 to n do
      f:=f*i;
   facto:=f;
   end;
 
   begin
 
    writeln('Donne n');
    readln(n);
    writeln('Donne k inférieur à n');
    readln(k);
    p:=1;
    p:=facto(n)/(facto(n-k)*facto(k));
 
   writeln(p);
   readln;
 
end.