Pascal. Задача 3-6

Пользователь вводит целые числа, заканчивая ввод числом 0. Подсчитать и вывести количество и произведение тех их них, которые больше 0 и меньше 10.

Решение

var
  a, p, n : integer;
begin
  n := 0;
  p := 1;
  repeat
    write('Введите число (0 - Закончить ввод): ');
    read(a);
    if (a > 0) and (a < 10) then begin
      inc(n);
      p := p * a;
    end;
  until a = 0;
  writeln('Число положительных чисел меньше 10: ', n);
  writeln('Произведение положительных чисел меньше 10: ', p);
end.