Всистеме программирования pascal abc выполните проверяемое cif2 для исполнителя робот (закрасить клетки, у которых сверху или снизу есть стена) (рис. 3.46). положение стен и длина коридора могут быть различными

{pascalabc}

program puzzle;

var  

  r,day: integer;  

  week: array[1..7] of string;

  i: integer;

  s: string;

begin

  week[7]: ='воскресенье';

  week[6]: ='суббота';

  week[5]: ='пятница';

  week[4]: ='четверг';

  week[3]: ='среда';

  week[2]: ='вторник';

  week[1]: ='понедельник';

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; writeln('ок, задумайте день недели (номер от 1 до 7)');

  writeln('удвойте этот номер');

  writeln('увеличьте результат на 5');

  writeln('умножьте полученное число на 5');

  writeln('теперь то, что получилось, умножьте на 10');

  writeln('введите полученный результат'); readln(r);

  day: = round((r-250)/100);

  writeln('**************************************');

  case day of

    1..7: writeln('       вы задумали ',week[day]);

    else writeln('что-то пошло не либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

  end;

  writeln('**************************************');

end.