Exemple complet de lectures/ecritures

program Exemple;

var

 a, b : integer;

 c1, c2 : char;

 resultat : boolean;

 x, y : real;

begin

 write('entrez 2 entiers : ');

 readln(a,b); {lecture des 2 valeurs}

 write('maintenant, entrez une lettre');

 readln(c1); {lecture d'un caractère}

 write('entrez une autre lettre : ');

 readln(c2);

 write('entrez maintenant un réel : ');

 readln(x); {lecture d'un réel}

 writeln;

 resultat := (a<=b); {resultat prend la valeur de l'expression a<=b}

 writeln('le 2ème entier est-il inf ou égal au 3ème ? =>', resultat);

 y:=sqr(x); {calcul de x au carré}

 writeln('le carré du réel est : ', y:4:2);

 writeln('ou encore : ',y:8:4);

     {affichage sur 8 caractères, dont 4 chiffres après la virgule}

 writeln('le code ASCII de ',c1, ' est : ', ord(c1):4);

 resultat := (c1>c2);

     {resultat prend la valeur de l'expression c1>c2}

     {il est vrai si c1>c2, et faux sinon}

 writeln('Le caractère 1 est-il avant le caractère 2 ? => ', resultat);

 write('Le code de ',c1,' est : ', ord(c1):4);

 writeln(' et celui de ',c2, ' est : ', ord(c2):4);

end.