Текстовой квест, А кто нибудь пробовал? Опции

[--Евгений--]

Program Kvest ;

Uses crt;

Var b,a,c,g,z: integer;
Begin
writeln(


'Наконец-то, вы собираетесь на заслуженный отдых после 11-и mесяцев работы.Куда вы отправuтесь? 1)море; 2)лес.'
);
readln(a);
If a=1 Then
Begin
writeln (


'Море... Отличный выбор: отель, бассеин, вежливый персонал и теплый воздух! Что может быть лучше? На какое море вы ходите поехать? 1)Черное 2)Красное '
);
readln(b);
If b=1 Then
Begin
writeln(


'Как вы хотите попасть на Черное море? 1)Машина 2)самолет'
);
readln©;
If c=1 Then
Begin
writeln(


'Машина... Долго, но дешиво. Удачного отдыха.'
);
End
Else
Begin
writeln(


'Самолет?! Я знал что в душе ты АЛИГАРХ. Удачи на камфортном отдыхе.'
);
End;
End
Else
Begin
writeln(


'Как вы хотите попасть на Красное море? 1)Машина 2)самолет'
);
readln(g);
If g=1 Then
Begin
writeln(


'Машина... Долго, но дешиво. Удачного отдыха.'
);
End
Else
Begin
writeln(


'Самолет?! Я знал что в душе ты АЛИГАРХ. Удачи на камфортном отдыхе.'
);
End;
End;
End
Else
Begin
writeln(


'Лес?.. Ну что ж, тоже хорошuй выбор. Эктрим! особенно если еcть только топор! Я бы поехал na море. 1)Взять только топор 2)Пaлатка, топор, еда и т.д.'
);
readln(z);
If z=1 Then
Begin
writeln('ЭКСТРИИИМ!!! Обожаю таких людeй! Весело отдохнуть.');
End
Else
Begin
writeln(


'Просто решил сэкономить на поездке на море? Ну ладно всякие люди бывают, богатые, бедные... Удачного отдыха...'
);
End;
End;
End.