28 lines
673 B
Plaintext
28 lines
673 B
Plaintext
procedure id_fonction procedure
|
|
( symbole PARENTHESE_OUVRANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
entier mot_clef entier
|
|
$a id_variable $a
|
|
; symbole POINT_VIRGULE
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
$a id_variable $a
|
|
= symbole EGAL
|
|
1 nombre 1
|
|
; symbole POINT_VIRGULE
|
|
ecrire mot_clef ecrire
|
|
( symbole PARENTHESE_OUVRANTE
|
|
$a id_variable $a
|
|
) symbole PARENTHESE_FERMANTE
|
|
; symbole POINT_VIRGULE
|
|
} symbole ACCOLADE_FERMANTE
|
|
main id_fonction main
|
|
( symbole PARENTHESE_OUVRANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
{ symbole ACCOLADE_OUVRANTE
|
|
procedure id_fonction procedure
|
|
( symbole PARENTHESE_OUVRANTE
|
|
) symbole PARENTHESE_FERMANTE
|
|
; symbole POINT_VIRGULE
|
|
} symbole ACCOLADE_FERMANTE
|
|
symbole FIN
|