Напишите программку, которая в последовательности целых чисел определяет их количество и

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 xlt;gt;0 do begin

           n:=n+1;

           if(xgt;0) and (xlt;=22) and (x mod 2 = 0) then s:=s+x;

           read(x);

       end;

       writeln(n, ' ', s);

   end

end.

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 gt; 0 amp;amp; x lt; 23 amp;amp; x % 2 == 0)

    b = b + x;

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

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

  Console.ReadLine ();