Итоги ОГЭ-6

Публикую результаты шестого пробного теста по ОГЭ (для увеличения - щелкаем по картинке).
Из-за сбоя в системе пропали результаты Влада Вершинина. Видела, что баллов было набрано 15-16, а решенные задания 19, 20 позволили выставить оценку "5".
Настоятельно прошу всех проанализировать свои ошибки. Для этого я открыла тест на длительный срок - до конца мая.

Сожалею, что лишь немногие выполнили задание 19. Не принимала ответы на это задание без прикрепленного файла, т.к. эксперты на экзамене будут проверять файлы в электронном виде, а не ответы, записанные в бланке.

В целом, по результатам вырисовывается неплохая картина, однако имеющиеся двойки портят все впечатление.

Ниже приведу решение задания 20.2. Напомню его условие:

В данной программе нет необходимости использовать массивы. Достаточно воспользоваться циклом (для многократного ввода значений, до тех пор пока не будет введено число "0", и подсчета суммы чисел, удовлетворяющих условию) и условным оператором.
Для формулировки условия кратности 6 напомню о функции mod - остаток от деления нацело.
Использование этой же функции позволяет определить оканчивается ли число на 4, для этого необходимо определить остаток от деления числа на 10 (это и будет последней цифрой в числе).
Вот текст правильной программы, которую написал Влад:
Program zadanie;
Var n,k,r,w,t:integer;
Begin
Write('Введите числа: ');
n:=1; k:=0;
While n <> 0 do begin
Readln(n);
if (n mod 10 = 4) and (n mod 6 = 0) then k:=k+n;
end;
Writeln(k);
End.

Отмечу, на на числах, данных в задании для примера работы программы, можно проверить свою программу. При получении ответа 168 при вводе аналогичных входных данных, можно сделать вывод  о ее правильности.