Көмек беріңіздерші өте жедел керек​

Program Sum;

var
  chislo: longint; {число, введенное с клавиатуры}
  tchifra, Summa, n, p: integer;{tchifra - правая цифра}

begin
  Write('введи число: ');
  Readln(chislo);
  Summa := 0;n := 0;p := 1;
  repeat
    tchifra := chislo mod 10; {получили правую цифру}
    Inc(n);
    if tchifra > 0 then p := p * tchifra;
    if tchifra < 3 then Summa := Summa + tchifra;
    chislo := chislo div 10{оставили от числа левую часть}
  until chislo = 0; {выход из цикла, если нет больше цифр}
  Writeln('Количество цифр в числе- ', n);
  Writeln('Сумма цифр, меньших 3- ', Summa);
  Writeln('Произведение цифр, больших нуля- ', p);
  Readln
end.

Тестовое решение:
введи число: 10354
Количество цифр в числе- 5
Сумма цифр, меньших 3- 1
Произведение цифр, больших нуля- 60

//Для проверки результата вывел массив на экран

using System;

namespace App1

{

   class Program

   {

       private static void Main()

       {

           const int x = -10;

           const int y = 20;

           int n, k;

           Console.Write("Enter n: "); n = int.Parse(Console.ReadLine());

           Console.Write("Enter k: "); k = int.Parse(Console.ReadLine());

           Console.WriteLine($"{Environment.NewLine}Array:");

           int counter = 0;

           int[] array = new int[n];

           Random rand = new Random();

           for (int i = 0; i < array.Length; i++)

           {

               array[i] = rand.Next(x, y + 1);

               if (array[i] > 0 && array[i] % k == 0) { counter++; }

               Console.WriteLine($"{i + 1}. {array[i]}");

           }

           Console.Write(Environment.NewLine);

           if (counter > 0) { Console.WriteLine($"В массиве {counter} элементов, соответствующих заданному условию."); }

           else { Console.WriteLine("В массиве нет элементов, соответствующих заданному условию."); }

           Console.ReadKey();

       }

   }

}