{* Задача 317 *}

Unit ZADACH317;
Interface
Implementation
Begin
 writeln('Программа случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях – Вы «неудачник».');
End.

Program pas13580;

Uses zadach317.pas; {* Эту строку можно удалить *}
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...