Информатика/ 30 с клавиатуры вводятся целые числа a, < > 0. количество чисел не известно, признак окончания ввода - ноль. требуется найти в вывести на экран: 1) сумму всех введённых чисел2) сумму чисел, меньших 33) количество чисел, меньших 34) среднее арифметическое чисел, меньших 35) произведение всех введённых чисел6) произведение чисел, меньших 3

Var a,s,s1,k1,pro,pro1:integer;

Begin

 pro:=1;

 pro1:=1;

 readln(a);

 while a<>0 do

 begin

   s:=s+a;

   pro:=pro*a;

   if a<3 then begin s1:=s1+a; k1:=k1+1; pro1:=pro1*a; end;

   readln(a);

 end;

 writeln('1) - ',s,'; 2) - ',s1,'; 3) - ',k1,'; 4) - ',s1/k1,'; 5) - ',pro,'; 6) - ',pro1);

End.

Программа была проверена в среде PascalABC.NET, полностью рабочая.