CLASSE Animal
ATTRIBUT PUBLIC
DEBUT
	nom : CHAINE
	couleur : CHAINE
	cri : CHAINE
FIN
METHODE PUBLIC
DEBUT 
	CONSTRUCTEUR Animal(h : CHAINE, m : CHAINE, s : CHAINE)
	DEBUT
		nom <- h
		couleur <- m
		cri <- s
	FIN
	PROCEDURE afficher()
	DEBUT
		ECRIRE("Animal : ", nom, " de couleur ", couleur," criant ", cri)
	FIN
FIN
CLASSE Mammifere HERITE DE Animal
ATTRIBUT PUBLIC
DEBUT
	duree_sevrage : ENTIER
FIN
METHODE PUBLIC
DEBUT 
	CONSTRUCTEUR Mammifere(h : CHAINE, m : CHAINE, s : CHAINE, n : ENTIER)
	DEBUT
		Animal(h, m, s)
		duree_sevrage <- n
	FIN
	PROCEDURE afficher()
	DEBUT
		ECRIRE("Mammifère : ", nom, " de couleur ", couleur," criant ", cri, " sevré en ", duree_sevrage)
	FIN
FIN
CLASSE Oiseau HERITE DE Animal
ATTRIBUT PUBLIC
DEBUT
	longueur_aile : ENTIER
FIN
METHODE PUBLIC
DEBUT 
	CONSTRUCTEUR Oiseau(h : CHAINE, m : CHAINE, s : CHAINE, n : ENTIER)
	DEBUT
		Animal(h, m, s)
		longueur_aile <- n
	FIN
	PROCEDURE afficher()
	DEBUT
		ECRIRE("Oiseau : ", nom, " de couleur ", couleur," criant ", cri, " avec des ailes de ", longueur_aile)
	FIN
FIN

