{* Задача 38 *}

Unit ZADACH38;
Interface
Implementation
Begin
 writeln('Программа-гадалка, которая выводит предсказание. Если пользователь хочет узнать - вводит 1. Если нет - 0.
Решение: ');
End.

Program zadach38;

Uses zadach38.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  A : integer;
  B : integer;
Begin
  randomize;
  A := random(10);
  writeln('Вы хотите узнать свою судьбу? Введите 1 - если да, 0 - если нет.');
  readln(B);
  If B = 1 Then
  Begin
    Case A Of  1 : writeln('Прогноз: Завтра Вам повезет!');
      2 : writeln('Прогноз: Завтра Вам не повезет!');
    3 : writeln('Прогноз: Завтра Вас ждет удача!');
    4 : writeln('Прогноз: Завтра деньги посыпятся с неба!');
    5 : writeln('Прогноз: Вас ожидает покупка!');
    6 : writeln('Прогноз: Завтра день не удачный для Вас. Плохие оценки...!');
    7 : writeln('Прогноз: Сегодня случится что-то плохое');
    8 : writeln('Прогноз: Завтра случится что-то плохое');
    9 : writeln('Прогноз: Не сиди завтра дома, а то рискуешь потерять важное. Дерзай!');
    10 : writeln('Прогноз: Удели большое внимание учебе! Не стоит забывать об оценках');
  End;
  
End;
If B = 0 Then
  writeln('Не хочешь - не надо...');
readln; {* Ждем подтверждения пользователя *}
End....