Algorithme max
Var a, b, c, max : entier
Début
Lire(a, b, c)
si ( a > b ) alors
max <- a
sinon
max <- b
finsi
si ( c > max ) alors
max <- c
finsi
ecrire("MAX = ", max)
Fin
12
100
7
MAX = 100
--------------
[Fin de programme]
Algorithme max
Var a, b, c : entier
Début
Lire(a)
Lire(b)
Lire(c)
ecrireln
ecrire("max = ")
si (a>b et a>c) alors
ecrire(a)
finsi
si (b>a et b>c) alors
ecrire(b)
finsi
si (c>a et c>b) alors
ecrire(c)
finsi
Fin