Два множества. Произведение его элементов - PascalABC.NET

Формулировка задачи:

Сформировать множества, базовый тип которых 110..150., по заданному числу элементов для каждого множества. Найти количество и произведение элементов, принадлежищих одновременно 2 множествам. Находит общие элементы, и их количество. а с произведением проблема.

var
   i,j,k,n,f,m:integer;
   s1,s2,s3: set of 110..150;
begin
randomize;
writeln('Введите количество элементов множества A');
readln(k);
writeln('Введите количество элементов множества B');
readln(n);
s1:=[]; s2:=[]; s3:=[];
i:=0; j:=0;
repeat
  f:=150-random(100);
  m:=150-random(100);
  if not(f in s1) and (i<k) then 
    begin
      s1:=s1+[f];
      inc(i);
    end;
  if not(m in s2) and (j<n) then 
    begin
      s2:=s2+[m];
      inc(j);
    end;
until (i=k) and (j=n);
writeln('А = ', s1);
writeln('В = ', s2);
  j:=0;
s3:=s1*s2;
writeln('Общие элементы ');
for i:=110 to 150 do
  if i in s3 then 
  begin 
  write(i,'');
  inc(j);
  end;
  writeln;
 writeln('Количество элементов, входящих в А и  входящих в В = ', j);
readln;
end.

Решение задачи: «Два множества. Произведение его элементов»

Листинг программы

var
   j,k,n,f:integer;
   s1,s2,s3: set of 110..150;
   m:int64;
begin
randomize;
writeln('Введите количество элементов множества A');
readln(k);
writeln('Введите количество элементов множества B');
readln(n);
s1:=[]; s2:=[]; s3:=[];
for var i:=1 to k do
 begin
  repeat
   f:=110+random(41);
  until not (f in s1);
  s1:=s1+[f];
 end;
for var i:=1 to n do
 begin
  repeat
   f:=110+random(41);
  until not (f in s2);
  s2:=s2+[f];
 end; 
writeln('А = ', s1);
writeln('В = ', s2);
s3:=s1*s2;
writeln('Общие элементы ');
if s3=[] then write('общих элементов нет')
else
 begin
  j:=0;
  m:=1;
  for var i:=110 to 150 do
  if i in s3 then
   begin
    write(i,' ');
    inc(j);
    m:=m*i;
   end;
  writeln;
  writeln('Количество элементов, входящих в А и  входящих в В = ', j);
  writeln('Их произведение=',m);
 end; 
end.

Объяснение кода листинга программы

Ввод количества элементов множеств A и B
Создание трех пустых множеств s1, s2, s3
Заполнение множеств s1 и s2 случайными числами, которые не повторяются при повторном запуске программы
Создание множества s3, которое является произведением множеств s1 и s2
Вывод списка общих элементов, если они есть. Если общих элементов нет, выводится соответствующее сообщение
Инициализация переменных j и m для подсчета количества общих элементов и их произведения
Проход по всем элементам от 110 до 150 и проверка, принадлежит ли текущий элемент множеству s3
Если элемент принадлежит множеству s3, он выводится на экран, увеличивается счетчик j и произведение m умножается на текущий элемент
Вывод количества общих элементов и их произведения на экран