Bonjour à tous,

Je rencontre un problème avec mon programme, est-ce quelqu'un pourrait m'éclairer?
Le programme reçoit un nombre entier et renvoie si c'est un nombre premier ou pas:
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
 
program test;
var
a, diviseur :integer;
result	:BOOLEAN;
 
begin
writeln('Entrez un nombre entier');
readln(a);
 
IF (a = 2) THEN
Result := True
 
    ELSE IF (a > 2) THEN
    result := false
 
    ELSE IF (a mod 2 = 0) THEN
    Result := False
 
    For diviseur := 2 to (a-1) DO
    ELSE IF (a mod diviseur = 0) THEN
    result := false
 
 
ELSE
result := true;
 
writeln('Est-ce que ce nombre est premier? ', result)
end.
Je suppose que le problème vient d'à partir de la ligne 20 ...

Merci d'avance!