Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих 22. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 22.

using System;

namespace Application

{

class MainClass

{

 public static void Main (string[] args)

 {

  int x = 1;

  int k = -1;

  int b = 0;

  while (x != 0) {

   Console.WriteLine ("Введите число:");

   x = Convert.ToInt32(Console.ReadLine ());

   k++;

   if (x > 0 && x < 23 && x % 2 == 0) {

    b = b + x;

   }

  }

  Console.WriteLine ("Длина последовательности: " + k);

  Console.WriteLine ("Сумма положительных чётных чисел, не превосходящих 22: " + b);

  Console.ReadLine ();

 }

}

}

Program n_1;

var x, n, s: integer;

begin

   x:=-1;

   s:=0;

   read(x);

   if x=0 then writeln('0 0')

   else begin

       n:=0;

       while x<>0 do begin

           n:=n+1;

           if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;

           read(x);

       end;

       writeln(n, ' ', s);

   end

end.