Exemple : le loto

program bingo ;

    var x : integer ;

begin

    write('entrez un entier : ');

    readln(x);

    case x of

        1..10 : writeln('bingo');

        11..50 : writeln('pas de chance');

    end;

    if x > 50 then

        writeln('valeur non autorisée');

end.