Bonjour

J'ai une question concernant un programme que j'ai élaboré. En effet, je ne trouve pas mes erreurs de syntaxe, pourriez-vous m'aider ?

Voici le code :
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program impots;
  var
  N,QF,RI,MI,I:real;
  celibataire,couple,coupleavec1enfant,coupleavec3enfants,coupleavec4enfants:string;
  S:string;
 
Begin
  writeln('entrer le montant imposable de votre famille');
  readln(MI);
 
  RI:=MI*0.9*0.8;
  writeln('saisissez votre situation familiale, celibataire, couple, couple avec 1 enfant, couple avec 3 enfants, couple avec 4 enfants');
  readln(S);
 
       if(S=celibataire)
       then N:=1;
       if(S=couple)
       then N:=2;
       if(S=coupleavec1enfant)
       then N:=3;
       if(S=coupleavec3enfants)
       then N:=4;
       if(S=coupleavec4enfants)
       then N:=5;
 
   QF:=RI/N;
 
          if(QF<25610)
          then I:=0;
          if(QF>=25610)and(QF<=50380)
          then I:=(RI*0.105)-(2689*N);
          if(QF>50380)and(QF<=88670)
          then I:=(RI*0.24)-(9490*N);
          if(QF>88670)and(QF<=143580)
          then I:=(RI*0.33)-(17470*N);
          if(QF>143580)and(QF<=233620)
          then I:=(RI*0.43)-(31828*N);
          if(QF>233620)and(QF<=288100)
          then I:=(RI*0.48)-(43509*N);
          if(QF>288100)
          then I:=(RI*0.54)-(607795*N);
 
    writeln('Votre impot est de ','I');
    readln;
    readln;
 
end.
Merci beaucoup d'avance.

Bien Cordialement,

lolo90