Сделайте в повер поинте и отправьте чтобы можно было скачать и потом редактировать от текст можно найти в интернете, если сказка не собственного сочинения.

2. титульная страница: название сказки, картинка (можно с интернета на обложку).
3. текст размером 14, вид шрифта Times Now Roman, междустрочный интервал полуторный, буквица в начале текста, отступ первой строки 0,7.
4. вы должны были нарисовать 3 рисунка по сказке, которые вставите в текст по смыслу.

выбирайте обтекание текстом
чтобы не было много пустого места
если вы нарисовали больше 3 рисунком, то вставляйте
5. делаем красивые. границы для страниц.
6. в конце текста написать кто автор работы (работу выполнил )

Вопрос №1:   1) - г                       2) - а                       3) - б                       4) - д                       5) - в вопрос №2: 1) - б                       2) - в                       3) - а                       4) - д                       5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г                       2) - в                       3) - а                       4) - д                       5) - б вопрос №8: 1) - б                       2) - а                       3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в -  информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.