Множества - Delphi - Ответ 12271903

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
type mnz=set of 1..100;
const n=10;
procedure generate(var m:mnz;s:string);
var i,a:integer;
begin
writeln('Введите множество ',s,' ',n,' целых чисел от 1 до 100');
m:=[];
for i:=1 to n do
 begin
  repeat
  readln(a);
  until(a in [1..100])and not(a in m);
  m:=m+[a];
 end;
end;
var x1,x2,x3,y:mnz;
    i,k,k6:byte;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
generate(x1,'X1');
generate(x2,'X2');
generate(x3,'X3');
y:=(x1+x2)-(x1*x3);
if y=[] then writeln('Множество Y пустое')
else
 begin
  writeln('Множество Y');
  k:=0;
  k6:=0;
  for i:=1 to 100 do
  if i in y then
   begin
    write(i:4);
    inc(k);
    if i mod 6=0 then inc(k6);
   end;
  writeln;
  writeln('Мощность множества=',k);
  writeln('Количество чисел, кратных 6=',k6)
 end;
readln
end.