ИНФОРМАТИКА/ 30 БАЛЛОВ

С клавиатуры вводятся целые числа a, <>0. Количество чисел не известно, признак окончания ввода - ноль. Требуется найти в вывести на экран:

1) Сумму всех введённых чисел

2) Сумму чисел, меньших 3

3) Количество чисел, меньших 3

4) Среднее арифметическое чисел, меньших 3

5) Произведение всех введённых чисел

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, полностью рабочая.