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

Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to N do
    Read(A[i]);

Write(A[1],' ');
For i:= 2 to N do
    Begin
    if A[i] mod 2 = 0 then WriteLn;
    Write(A[i],' ')
    End;
End.

Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). 
Пример:
«=ОКРУГЛ(выражение);число)»

Дано:

Математическое выражение:
"(89+77)−2(79:(3+10))"

Найти:
ответ, и округлить его до сотых в MS Excel.

Формула (Её нужно ввести в окошко Excel и нажать "Enter"):
«=ОКРУГЛ((89+77)-2*(79/(3+10));2)»

ответ:
153,85

Далее скриншот, и файл Excel в котором формула и сам ответ.

Наливаем варенье в 3-ёх литровую банку, выливаем эти 3 литра в 5-ти литровую, Снова наливаем в 3-ёх литровую банку варенье и переливаем эти 2 литра, которые смогут влезть в 5-ти литровую, в 3-ёх литровой останется литр, из 5-ти литровой банки выливаем варенье обратно в 8-ми литровую, из 3-ёх литровой переливаем наш литр в 5-ти литровую, набираем пустую 3-ёх литровую банку варенье из 8-ми литровой, в которой останется 4 литра, а полную 3-ёх литровую выливаем в 5-ти литровую, в которой уже есть литр, получится, что в 8-ми литровой банке 4 литра и в 5-ти литровой банке 4 литра, которые он уже может дать по отдельности Фрекен и Карлсону.