Задано игровое поле следующего вида: Стрелка – точка старта объекта.
Направление стрелки – то, куда смотрит объект перед началом движения
Необходимо составить алгоритм движения так, чтобы объект собрал все «1».
Алгоритм предполагает рекурсивный вызов функций F1, F2. Количество команд
в функции ограничено. Для реализации алгоритма предоставлены функции
следующего вида:
F1: @ @ @ @
F2:@ @ @ @
Доступные команды:
Ш Сделать 1 шаг в направлении движения
К Закрасить клетку
П Повернуться на месте направо
Л Повернуться на месте налево
ПЦ Повернуться на месте направо, если клетка, в которой находимся
окрашена
ЛЦ Повернуться на месте налево, если клетка, в которой находимся
окрашена

По горизонтали:
1. Некоторый предмет.
2. Описание модели с формального языка.
3. Граф, предназначенный для отображения вложенности, подчиненности, наследования и т.п. между объектами.
4. Общее название моделей, которые можно осязать.
5. Инструмент для компьютерного моделирования.
6. Общее название моделей, которые представляют из себя совокупность полезной и нужной информации об объекте.
По вертикали:
7. Информационная модель, состоящая из строк и столбцов.
8. Средство для наглядного представления состава и структуры системы.
9. Процесс построения моделей.
10. граф, отображающий последовательность выполнения действий.
11. Упрощенное представление реального объекта, процесса или явления.
 
ответы:
По горизонтали:
1. объект; 2. формализация; 3.дерево; 4. материальные; 5. компьютер; 6. информационные.
По вертикали:
7. таблица; 8. граф; 9. моделирование; 10. схема; 11. модель.

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.