Задача 16 Урок 9

Задача 16 Урок 9:

Запрограммируйте историю:

1) Вы дома, пойдем в лес или в центр города?
2) Если пойдем в лес то будем жечь костер или кататься на лыжах?
3) Если будем кататься на лыжах, то по кругу или с гор (придумайте последния выбора)
4) Если будем жечь костер - то будем ли что-то готовить или просто (придумайте последствия выбора)
5) Если выбрали поход в центр - пойдем ли в кино или погуляем по центру
6) Если пойдем в кино будет смотреть исторический фильм или комедию (придумайте последствия выбора)

var a:string;
begin
  writeln('V les(1) ili v centr goroda(2)?');
  readln(a);
  if (a='1') then
  begin
     writeln('Gech koster(1) ili katatsia na ligach(2)?');
     readln(a);
     if (a='1') then
     begin
        writeln('Gotovit(1) ili smotret(2)?');
        readln(a);
        if (a='1') then
            writeln('Priiatnogo appetita')
        else
            writeln('Krasivo gorit')
     end
     else if (a='2') then
     begin
        writeln('S gor(1) ili po krugu(2)?');
        readln(a);
        if (a='1') then
           writeln('Glavnoe ne uoastb')
        else
           writeln('Xoroschei trenirovki')
     end
  end
  else if (a='2') then
  begin
     writeln('V kino(1) ili pogulaem(2)?');
     readln(a);
     if (a='1') then
       begin
        writeln('Istoricheskii(1) ili komedia(2)?');
        readln(a);
        if (a='1') then
          writeln('Lublu istoricheskoe kino')
          else if (a='2') then
          writeln('Posmeemsa');
       end
     else if (a='2') then
       writeln('V kafe(1) ili po gorodu(2)?');
       readln(a);
       if (a='1') then
          writeln('Priatnogo appetita')
          else if (a='2') then
          writeln('Horoschei progulki');
  end
end.