Написать программу которая вычисляет сумму и произведение N чисел (N ввести с клавиатуры) кратных 3 из всех вводимых — Pascal(Паскаль)

var
  x,sum,i,n,proiz:integer;
begin
  sum:=0;
  proiz:=1;
  write('Vvedite n: ');
  read(n);
  for i:=1 to n do
      begin
        write('Vvedite chislo #',i,': ');
        read(x);
        if (x mod 3)=0 then
            begin
              sum:=sum+x;
              proiz:=proiz*x;
            end;
      end;
  writeln('Summa: ',sum);
  writeln('Proiz: ',proiz);
  readln;
  readln;
end.