С клавиатуры вводится произвольное количество чисел N. Определите количество (К) и сумму (S) положительных чисел, оканчивающихся

program zz1;var a, k, n, i, s:integer; // задаем переменные целого типаbeginwrite(\' введите n \'); // вводим с клавиатуры количество чиселread(n); for i:=1 to n do // организуем циклbeginread(a); // вводим числоif (a > 0) and (a mod 10 = 6) then begin k:=k + 1;s:=s + a;end; // проверяем, если число положительное и последняя цифра у него 6, то считаем его и добавляем в суммуend;write(\' количество положительных чисел оканчивающихся на 6 = \', k, \' их сумма = \', s); // выводим ответ end.