Составить программу.
Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

Program semchisel;Var a,i,sum,proiz:integer;Begin   proiz:=1;   sum:=0;   for i:=1 to 7 do      begin         read(a);         if (a<3) then proiz:=proiz*a;         if (a>3) then sum:=sum+a;      end;Writeln('proiz=', proiz, ' ', 'sum=',sum);Readln;End.