Составить программу случайного предсказания одного из
десяти вариантов ближайшего будущего.
Вариант	Предсказание
1	Счастье
2	Дальняя поездка
3	Радость
4	Любовь
5	Неожиданная встреча
6	Большая прибыль
7	Удача
8	Дети
9	Неожиданные затруднения
10	Новое знакомство
Подсказка: вариант определяется с помощью функции гене¬рации случайного числа.
 

А в чем проблема?
Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ.
если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен...

я написал эту прогу, но когда она выводит на экран вариант "будущего", то появляется и номер этого "будущего" под которым он записан в case. Как от него избавиться???

Может, стоило бы показать, как ты это сделал? Телепатов нет...

randomize;
c:=random(5)+1;
case c of
1: begin writeln('счастье'); end;
2: begin writeln('радость');  end;
...
end;
writeln(c);
readln;
end. 

М

теги ставятся наоборот: сначала code=pas, а потом уже /code... мисс_граффити

Добавлено через 3 мин.
а выводит так:

счастье
1

сам же делаешь

writeln(c)

вот с и печатается.

Оффтоп...
Не слишком ли оптимистичное будущее
предсказывает твоя программа?
А где неурожай, засуха?
ИМХО, сама модель, которую ты вгоняешь в Паскаль,
слишком линейна, проста и некорректна для описания...
P.S. Надеюсь, эта программа для шуток?