Taille : Entier;
Principal /*******/ Variable /******/ F : Nul Ou FichierListe; Debut ... Si F.Taille==1024 Alors /* Le fichier pèse 1 024 octets. */ ... Fin Si ... Fin Principal