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.