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

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

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

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

Решение:

var
  s: string;
begin

  writeln('>>(v les - 1/v centr - 2)');
  readln(s);
  if (s = '1') then
    begin
      writeln('>>vi v lesu');
      writeln('>>(koster - 1/lizhi - 2)');
      readln(s);
      if (s = '1') then
        begin
          writeln('>>prosto koster - 1/eda - 2');
          readln(s);
          if (s = '1') then
            writeln('koster gorit')
          else
            writeln('eda gotova')
        end
      else
        writeln('ne slomaj lizhi')
    end
      else
        writeln('vi v centre, kino - 1/progulka - 2');
        readln(s);
        if (s = '1') then
          begin
            writeln('vi v kino, historical - 1/comedy - 2');
            readln(s);
            if (s = '1') then
              writeln('smotrim historical')
            else
              writeln('smotrim comedy');
          end
        else
          writeln('priyatnoj progulki');
  readln();
end.