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.
|