Cписки яких типів можна створити в текстовому документі word 2010

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
      .Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
  Writeln('Чаще других встречается цепочка "',c,'"')
end.

Пример
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"

Замечание: ограничение на длину строки увеличено до 2 млн. символов.

 

1. я не знаю с какой дескретностью осуществляется поворот, однако результатом будут

а) горизонтальная линия вдоль верхней кромки экрана начинающаяся в точке 0,0

б) вертикальная линия вдоль левой кромки экрана начинающаяся в 2 шагах от точки 0,0

 

 в) линия произвольного наклона начинающаяся в двух шагах от точки 0,0 и идущая до края экрана

 

 

 2. а) вначале дойдем до края экрана

пока впереди не край
  прыжок
конец цикла

б) повернем указатель в сторону угла и загоним указатель в угол

пока впереди край
  поворот
конец цикла

 

пока впереди не край
  прыжок
конец цикла

в) начинаемрисовать пунктир до следующего угла и там поворачиваем

пока впереди не край
  шаг

  прыжок
конец цикла

пока впереди край
  поворот
конец цикла

г) повторяем пункт в еще 3 раза

итоговая программа

 

 

пока впереди не край
  прыжок
конец цикла 

пока впереди край
  поворот
конец цикла

пока впереди не край
  прыжок
конец цикла

i:=0

пока i<4

 

  пока впереди не край
    шаг

    прыжок
  конец цикла

  пока впереди край
    поворот
  конец цикла

  i := i+1

конец цикла