Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while .
На питооонн​

Program CountA;

Uses Crt;

var a,n,x,i:integer;
begin

clrscr;  // очищаем экран
write('Введите число n:');
readln(n); // ввод данных

write('Введите цифру а: ');
readln(a);  // ввод данных
x:=1; i:=0;  i-счётчик цифр а  
while (n<>0) do // Пока n не стало равным нулю
begin
    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  
   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 
   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
 end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу

end.

Program N1;

Uses Crt;

var n,s,c:real;

begin

     clrscr;

     write('Введите числа. Конец ввода 0: ');   

     n:=1;s:=0;c:=0;

     while (n<>0) do

          begin

             readln(n);               

if (n=0) then break;  

 if (n>0)   then 

          begin  

               s:=s+n;

                c:=c+1;

          end; 

         end;   

   writeln('Сумма чисел:',s);

    writeln('Среднее арифметическое:',s/c);   

     readkey;

 end.

Program N2;

Uses Crt;

var n,s,c:real;

begin

     clrscr;

     write('Введите числа. Конец ввода 0: ');   

     s:=0;c:=0;

      repeat

         readln(n);

          if (n=0) then break;

           if (n>0)   then

              begin  

                    s:=s+n;

                    c:=c+1; 

               end;

         until (c=0);  

    writeln('Сумма чисел:',s);

    writeln('Среднее арифметическое:',s/c);   

     readkey;

 end.