скажите как это сделать? Эмин составил список дел на завтра. Расположи места в том порядке, в котором Эмин собирается их посетить, если:
На площадь он пойдёт перед тем, как посетить холм, но после школы;магазин и кафе стоят в списке рядом;в кафе Эмин хотел заглянуть перед походом в парк;перед тем, как зайти в магазин, Эмин хотел заглянуть ещё в одно место;на холм он хотел забраться раньше, чем пойти в парк.

Она изобразит квадрат размером 45х45 ячеек:

1. Направо 45 (это равносильно "Направо 1", потому что 45 - это 44 + 1 (4 * 11 + 1), а 4 поворота возвращают её в начальное состояние.
2. Вперед 45 (проходим 45 ячеек в направлении "направо")

3. Направо 45 (направление будет "вниз")
4. Вперед 45 (проходим 45 ячеек в направлении "вниз")

5. Направо 45 (направление будет "влево")
6. Вперед 45 (проходим 45 ячеек в направлении "влево")

7. Направо 45 (направление будет "вверх")
8. Вперед 45 (проходим 45 ячеек в направлении "вверх")

Дальше опять тоже самое (4 поворота с перемещением).

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.