Нарисуйте блок схему и напише программу для подсчёта сумму и произведения чисел вводимого числа. ​

ar

 a, N: integer;

begin

 N := 0; //начальное количество чисел в наборе

 repeat

   read(a); //вводим число

   inc(N) //увеличиваем количество чисел

 until a = 0; //если число = 0, то выходим

 writeln;

 write('количество чисел = ', N)

end.

Объяснение:

Это на паскале