Bonjour tout le monde
j'ai un exercice pour trier 3 nombres avec les structures conditionnelles simples avec le langage PASCAL

prière de m'aider car j'ai des problèmes dans la compilation. Merci


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
program ex1;
uses wincrt;
 
var
a,b,c:integer;
 
 
begin
 
writeln('donner premier nombre  a  ');
read(a);
writeln('donner premier nombre  b  ');
read(b);
writeln('donner premier nombre  c  ');
read(c);
 
 
    if(a>b) and (a>c) and    then
	          if (b>c) then
                          writeln('  les nombres tries sont    ',a,b,c)
                    else
 
                          writeln('les nombres tries sont   ',a,c,b);
                       if (b>a) then
 
                       writeln('les nombres tries sont   ',b,c,a)
            else
 
                  writeln('les nombres tries sont   ',b,a,c);
 
                    if(b<a) then
                       writeln('les nombres tries sont   ',c,a,b)
 
                        else
                    writeln('les nombres tries sont  ',c,b,a);
                    end;
end.