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

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

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

Решение:

var a: string ;
begin
writeln('>>Kuda poydem?(v les/v centr)');
readln(a);
if (a='v les')then
  begin
    writeln('>>vy prishly v les');
    writeln('>>budem zhech koster ili katatsya na lyzhah? (zhech koster/katatsya na lyzhah)');
    readln(a);
    if(a='zhech koster') then
    begin
      writeln('>>gretsya ili gotovit?(gretsya/gotovit)');
      readln(a);
      if(a='gretsya') then
        writeln('>>vy sogrelis')
      else if(a='gotovit') then
        writeln('>>vy poobedaly')
    end
    else if(a='katatsya na lyzhah') then
    begin
      writeln('>>kataemsya na lyzhah');
      writeln('>>kataemsya po crugu ili s gor?(po krugu/s gor)');
      readln(a);
      if(a='po krugu') then
        writeln('>>kataem po krugu')
      else if(a='s gor') then
        writeln('>>kataem s gory');
    end;
  end
else if (a='v centr') then
begin
  writeln('>>vy prishli v centr');
  writeln('>>poydem v kino ili pogulyaem po centry?(v kino/pogulyaem)');
  readln(a);
  if(a='v kino') then
  begin
    writeln('>>vy v kino');
    writeln('>>istoricheskiy film ili komediya?(istoricheskiy / komediya)');
    readln(a);
    if(a='istoricheskiy') then
      writeln('>>vy smotrite istoricheskiy film')
    else if(a='komediya') then
      writeln('>>smotrim komediyu');
  end
  else if(a='pogulyaem') then
  begin
    writeln('>>vy gulyaete')
  end
end;
writeln('>>konec');
readln();
end.