Salut!  
J'utilise Turbopascal, je dois faire un programme permettant de comparer 3 nombres. Seulement voila, je retourne le probleme dans tous les sens mais l'ordinateur m'indique qu'il faut mettre un point virgule au dernier "end". Pourtant quand je remplace le point par un ";", ça ne marche pas. Cequi ne m'etonne pas beaucoup d'ailleurs...
Je vous montre ce que j'ai fait, et j'espere que vous m'aiderez a resoudre la question. mercid'avance!  
 
 
 
 
PROGRAM TP1_ex4;
USES wincrt;
VAR A,B,C,max,min : REAL;
 
BEGIN
     writeln('ce programme vous permettra de comparer 3 nombre A,B,et C rentrés préalablement au clavier');
     writeln('rentrer les nombres A,B,C');
     readln(A,B,C);
 
                    BEGIN
                    max:=A;
                    IF B>A THEN max:= B;
                    IF C>B THEN max:= C;
                    END;
 
                    BEGIN
                    min:=A;
                    IF B<A then min:= B;
                    IF C<B then min:=C;
 
 
                                         
     writeln('le nombre le plus petit est',min);
     writeln('le nombre le plus grand est',max);
     
 
 
 
END.

Salut ,  
 
Il manque un end ;  
 
la :
 
                    BEGIN
                    min:=A;
                    IF B<A then min:= B;
                    IF C<B then min:=C;
 
 
C'est a cause de ton indentation sans doute que tu vois pas le problème .

super merci beaucoup!

Re!
 
Après que le programme m'est donné la réponse je ne peux plus rentrer de nouvelles valeurs...
comment est ce que je pourrai rentrer de nouvelles valeurs sans devoir fermer la fenetre et rouvrir le prog.?
Merci d'avance

tu fais une boucle