Bonjour voilà je dois faire un histogramme à intervalle, je crois que j'ai réussi mais j'ai beaucoup de probleme avec les virgules, est ce que qqun serait m'aider merci beaucoup

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
program histo;
 
const maxMesures=50;
var tMesures: array[1..maxMesures] of real;
var nbMesures: 0..maxMesures;
var i,j: integer;
var mesure: real;
 
begin
 
 for i:= 1 to maxMesures do
         tMesures[i]:= 0
 end;
     writeln ('Mesure (0 pour terminer)');
     readln (mesure);
     while (mesure > 0)do
        if (mesure <= 2) then i := 1
          else if (mesure <= 4) then i := 2
          else if (mesure <= 6) then i := 3
          else if (mesure <= 8)then i := 4
          else if (mesure <= 10) then i := 5
        end
        tMesures[i]:= tMesures[i] + 1
        writeln('Mesure (0 pour terminer)')
        readln(mesure);
    end;
 
     for i:= 1 to maxMesures
           writeln(']',2*(i-1),',',2*i,'] : ');
             for j de 1 à maxMesures[i];
                  writeln ('*');
             end
    end
end.