Помогите с задачами по информатике через Pascal:
1. С клавиатуры вводятся целые числа, признак окончания ввода - четное число, вычислить количество двузначных, сумму - последняя цифра больше 5.
Входные данные: -7, 11, 29, 115, 28
Выходные данные: k=2, s=22
2. С клавиатуры вводят n целых чисел, посчитать произведение положительных кратных 3.
Входные данные: 6, -21, 13, 7, 3, 12, -6
Выходные данные: p=36
3. С клавиатуры вводятся n целых чисел, найти среднее арифметическое положительных значений.
Помогите пожалуйста, буду очень благодарна.

Есть ли еще какое-нибудь решение первого номера?

Не знаю. А что не так?

Для чего нужно "abs"?

А, всё, я поняла

{1}var  a,k,s: integer;begin  read(a);  k := 0; s := 0;  while a mod 2 <> 0 do    begin    if abs(a) mod 10 > 5 then      s := s + a;    a := abs(a);    if (a > 9) and (a < 100) then      k := k + 1;    read(a);    end;  writeln('k=',k,', s=',s)end.{2}var  n,i,p,a: integer;begin  read(n);  p := 1;  for i := 1 to n do    begin    read(a);    if (a > 0) and (a mod 3 = 0) then      p := p * a;    end;  writeln('p=',p)end.{3}var  n,a,i,k,s: integer;begin  read(n);  k := 0; s := 0;  for i := 1 to n do    begin    read(a);    if a > 0 then      begin      s := s + a;      k := k + 1;      end;    end;  if k = 0 then k := 1;  writeln('s=',s/k)end.