Hello,

Je suis un débutant en Pascal et j'utilise le compilateur FPC sous Linux.

J'ai un exercice assez simple de calcule de salaire en employant le "case..of" à réaliser mais j'obtiens la même erreur à chaque fois : "range check error while evaluating constants"

Voici mon 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
Program exercice14;

var brut,prime,old:integer;
var com:real;
var result:real;

begin

writeln('Introduisez le chiffre d''affaire et l''ancienneté du représentant :');
write('Chiffre d''affaire en €: ');
readln(brut);
write('ancienneté du représentant en année: ');
readln(old);

case brut of
	0..2499:
		com:=(brut);
		
	2500..12499:
		com:=(brut*1.075);
	12500..37500:
		com:=(brut*1.09)
	else
		com:=(brut* 1.113)
end;

case old of
		0..1: 
			prime:=70;
		2..6:
			prime:=70+(10*(old-2));
		7..14:
			prime:=120+(12*(old-7))
		else
			prime:=216+(14*(old-15));
			if prime > 326 then prime:=326
end;


result:=(prime+com);			
writeln('Votre salaire est ',result:10:2)
			
end.
Le problème se situe sur cette ligne, alors que quand je rentre la valeur 12500..30000 je peux compiler sans aucun soucis, je ne comprends pas trop d'où vient le problème.

Si quelqu'un a une idée, qu'il n'hésite pas .

Merci d'avance