Пример 3. Случайное предсказание

    Случайное предсказание одного из десяти вариантов ближайшего будущего с вероятностью  1/20,  в остальных случаях - вы "неудачник".

PROGRAM FUTURE;

var N: word;

Begin

     writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');

   Randomize;  N:=Random(20)+1;      { N - случайное число от 1 до 20 }

    writeln;   write('Вас ожидает _');

    case N of

       1: writeln('счастье');       6: writeln('здоровье');

       2: writeln('пятерка');       7: writeln('деньги');

       3: writeln('дорога');         8: writeln('любовь');

       4: writeln('двойка');         9: writeln('встреча');

       5: writeln('болезнь');      10: writeln('дети')

    else  writeln('неудача')  

    end;

    writeln('Нажми Enter');  readln; 

end.