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

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

Решать по желанию, сдавать на проверку не обязательно:
Запрограммируйте историю:

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

var a:string;
begin
  writeln('Вы дома, пойдем в лес или в центр города?');
  readln(a);
    if (a = 'в лес') then
    begin
      writeln ('будем жечь костер или кататься на лыжах?');
      readln(a);
      begin
        if (a = 'будем жечь костер') then
          writeln ('будем ли что-то готовить или просто посидим?');
          readln(a);
            if (a = 'будем готовить') then
              writeln ('отлично!!!')
            else
              writeln ('скучно');
      end;
        begin
        else
          writeln ('будем кататься на лыжах, то по кругу или с гор');
          readln(a);
            if (a = 'по кругу') then
              writeln ('печалька!!!')
            else
              writeln ('Ура!!!');
        end;
    end;
    else
      begin
      writeln ('пойдем ли в кино или погуляем по центру?');
      readln(a);
        if (a='пойдем ли в кино') then
          writeln ('будет смотреть исторический фильм или комедию?');
          readln(a);
            if (t='исторический') then
              writeln ('не люблю исторические фильмы')
            else
              writeln ('люблю комедии');
        else
          writeln ('люблю центр города');
      end;
  readln();
end.