1. Пользователь вводит целые числа, заканчивая ввод числом 0. Определить количество и произведение тех из них, которые больше 0 и меньше 10. 2. С клавиатуры вводятся 10 двузначных натуральных чисел. Определить, сколько среди них чисел, у которых сумма цифр - число четное. 3. ЖЕЛАТЕЛЬНО, НО НЕ ОБЯЗАТЕЛЬНО Пользователь вводит с клавиатуры целые положительные числа (количество не ограничено).Ввод должен остановиться, как только сумма введенных чисел станет больше 100. Вывести сумму чисел и количество введенных чисел.

1.
Var a,b,pr:integer;
Begin
pr:=1;   
write(Вводите числа, когда закончите - введите 0. ); readln(a);
while (a0) do  begin 
 if (a>0) and (aWriteln(Чисел, больше 0 и меньше 10: ,b, их произведение:,pr);end.

2.
Var a,b,c,i,sum,f:integer;
Begin
 Write(Введите 10 двузначных чисел: ); repeat readln(a); until(a>=10) and (afor i:=1 to 10 do 
  begin 
     repeat readln(a); until(a>=10) (a      b:=a mod 10;
      c:=a div 10;
       sum:=b+c;
        if (sum mod 2 = 0) then f:=f+1;
end;
Writeln(Кол-во цифр, удовлетворяющих условию: ,f);
end.

3.
Var a,b,c:integer;
Begin 
  write(Вводите целые положительные числа.);
repeat
   readln(a);
b:=b+a;
c:=c+1;
 until (b>100);
Writeln(Кол-во введёных чисел:,c, их сумма:,b);
end.