Непонятно, почему у вас координаты сначала написаны в двоичной системе, ведь в задаче про неё не написано.
Ну да ладно, я перевёл все координаты в десятичную систему счисления и нарисовал рисунок по этим точкам (смотри рисунки внизу). Вроде напоминает зайца какого то. Ну или Пятачка, друга Винни Пуха :)
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
N = 2ˣ
N - мощность
x - вес одного символа