могу добавить если надо. Задание: составить алгоритм и блок-схему.

1. Собрать сумку в школу на понедельник (учесть изменения в расписании, необходимости брать с собой учебник и тетрадь)

2. Нарисовать картину (учесть наличие всех цветов, кистей и холста)

3. Сварить макароны (учесть наличие макарон, воды, газа/электричества)

4. Собрать букет (учесть наличие нужных цветов, упаковочной бумаги и ленты)

5. Протереть зеркало (учесть необходимость протереть зеркало (грязное ли зеркало?), наличие моющих средств и бумажных салфеток)

6. Выполнить квест в игре (учесть наличие времени для выполнения (есть ли время, чтобы сделать квест?), наличие квеста (есть ли квест?), учесть ограничения для выполнения (например, достигнут ли уровень, открыта ли нужная локация)).

7. Опубликовать фотографию (учесть, нужна ли подпись для фотографии, геолокация и хэштеги).

8. Найти рецепт пирога (учесть аллергии и наличие необходимых продуктов)

9. Нарисовать блоксхему (учесть, есть ли в алгоритме условия и вводные данные)

10. Выбрать одежду для прогулки (учесть, холодно ли на улице, есть ли ветер и льет ли дождь)

11. Научиться делать оригами (учесть, есть ли бумага, есть ли видео-урок)

12. Собрать подарок на день рождения (учесть, нужно ли сладкое, есть ли упаковочная бумага и лента)

13. Выбрать видео про путешествия на YouTube (учесть, подходит ли видео, популярное ли видео, положительные ли комментарии)

14. Пригласить друга на прогулку (учесть, хотите ли Вы на прогулку, есть ли у Вас время на прогулку и хочет ли друг на прогулку)

// PascalABC.NET 3.0, сборка 1088
const
  nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
  Date=record
    Day,Month,Year:integer
  end;
 
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
  a,y,m:integer;
begin
  With Dat do begin
    a:=(14 - month) div 12;
    y:=Year-a;
    m:=month+12*a-2;
    DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
    end
end;

procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
  data.Day:=d; data.Month:=m; data.Year:=y
end;

procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
  LastDay:Date;
  n:integer;
begin
  n:=nDay[month];
  if (month=2) and (year mod 4 = 0) then Inc(n);
  DMY2Date(n,month,year,LastDay);
  n:=DOW(LastDay); // номер последнего дня недели
  Wd.Month:=month; Wd.Year:=year;
  if n<3 then Wd.Day:=LastDay.Day-(n+4)
  else
    if n=3 then Wd.Day:=LastDay.Day
    else Wd.Day:=LastDay.Day+3-n;
  Fr.Month:=month; Fr.Year:=year;
  if n<5 then Fr.Day:=LastDay.Day-(n+2)
  else
    if n=3 then Fr.Day:=LastDay.Day
    else Fr.Day:=LastDay.Day-1
end;

var
  Wd,Fr:Date;
  ff,mf:Text;
  m:integer;
begin
  Assign(ff,'father.txt'); Rewrite(ff);
  Assign(mf,'mother.txt'); Rewrite(mf);
  // Сентябрь-декабрь 2015 года
  for m:=9 to 12 do begin
    LastDays(m,2015,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
  end;
  // Январь - май 2016 года
  for m:=1 to 5 do begin
    LastDays(m,2016,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
  end;
  Close(ff); Close(mf)
end.

Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс

mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс

Объяснение:

Зачем нужны разделы?

У всех возможностей форматирования в Word есть ограничения. Так, гарнитура, размер и все остальные атрибуты применяются только к шрифту. Затем следует форматирование абзаца - определенные команды, служащие для выравнивания по центру или по ширине, создания отступа и т. д. Далее идет форматирование страницы, которое включает установку полей страницы, колонтитулов и другие параметры.

Что же стоит над форматированием страницы? Есть ли следующая ступень? Конечно! Это создание разделов, с которых можно менять параметры форматирования страниц документа. Так, если в данном месте документа должна быть страница с выравниванием по центру или страница с альбомной ориентацией, без нового раздела не обойтись. Раздел - это самый большой фрагмент документа, который можно форматировать.