Помогите пожалуйста, язык программирования паскаль. 1)Дана последовательность ч??сел, оканчивающихся 0. Определите сумму всех двузначных положительных и четных чисел. 2)дана последовательность из n чисел. Сколько чисел этой последовательности являются двузначными, у которых последняя цифра 3.

1)program qq;const N=(количество чисел в массиве);var A:array[1..N] of integer;      i, S:integer;beginfor i:=1 to N do readln(A[i]);S=0;for i:=0 to N do  if (A[i]>9) and (A[i]<100) and (A[i]mod2=0) then S:=S+A[i];writeln(s);end.2)  program qq1;const N=(количество чисел в массиве);var A:array[1..N] of integer;      i, k:integer;beginfor i:=1 to N do readln(A[i]);k:=0;for i:=0 to N do  if (A[i]mod10=3) and (A[i]<100) and (A[i]>9) then k:=k+1;writeln(k);end.