написать программу на языке паскаль

Program Test;

Var Vozrast: integer; Bol, Mistake: boolean;

Begin

Bol := true;

Write('Введите возраст ребенка: ');
Readln(Vozrast);
Writeln();

if (Vozrast > 6) then
Writeln('Ребенок не может посещать детский сад')

else if (Vozrast <= 0) then
begin
Writeln('Некорректный ввод данных!');
Mistake := true;
end

else
begin
Writeln('Ребенок может посещать детский сад');
Bol := false;
end;

if (Mistake = false) then
begin
if (Bol = false) then
Writeln('Ребенок станет школьником через ', 7 - Vozrast, ' лет')

else
Writeln('Ребенок уже в школе');
end;

End.

Запишу по порядку последовательности чисел, записанные на всех шагах вплоть до одиннадцатого (слева идёт номер шага):

1)  3
2)  1 3
3)  1 1 1 3
4)  3 1 1 3
5)  1 3 2 1 1 3
6)  1 1 1 3 1 2 2 1 1 3
7)  3 1 1 3 1 1 2 2 2 1 1 3
8)  1 3 2 1 1 3 2 1 3 2 2 1 1 3
9)  1 1 1 3 1 2 2 1 1 3 1 2 1 1 1 3 2 2 2 1 1 3
10)  3 1 1 3 1 1 2 2 2 1 1 3 1 1 1 2 3 1 1 3 3 2 2 1 1 3
11)  1 3 2 1 1 3 2 1 3 2 2 1 1 3 3 1 1 2 1 3 2 1 2 3 2 2 2 1 1 3

ответ: на одиннадцатом шаге он записал такую последовательность чисел:
1 3 2 1 1 3 2 1 3 2 2 1 1 3 3 1 1 2 1 3 2 1 2 3 2 2 2 1 1 3