[وردة القدس]

Algorithme Exo2
var A,B,C,min :entier
debut
ecrire ('donnez Aet B et C')
lire (A,B,C)
si (A<B) et (A<C) alors
min :=A
sinon
si B<c alors
min:=B
sinon
min:=C
fin si
fin si
fin si
ecrire ('min est' ,min)
fin.