Составить программу. введите 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.