Дано множество чисел от 10 до 100.Найти подмножества A,B,C опираясь на условия

{Дано множество целых чисел от 10 до 100. Найдите подмножество А -
 
целых чисел, кратных 5, В - чисел, кратных 6, С - чисел, кратных 10 .
 
Найдите A U B U C и A ^ B\C.Ъ
}
 
var
  z,y,x,a,b,c: Set of byte;
  i:integer;
begin
  x:=[];
  for i:=10 to 100 do
    include(x,i);
  writeln('Исходное множество:');
  for i:=0 to 255 do
    if i in x then
      write(i:4);
  a:=[];
  for i:=10 to 100 do
    if i mod 5 = 0 then
      include(a,i);
  writeln;
  writeln('Множество А:');
  for i:=0 to 255 do
    if i in a then
      write(i:4);
  b:=[];
  for i:=10 to 100 do
    if i mod 6 = 0 then
      include(b,i);
  writeln;
  writeln('Множество B:');
  for i:=0 to 255 do
    if i in b then
      write(i:4);
  c:=[];
  for i:=10 to 100 do
    if i mod 10 = 0 then
      include(c,i);
  writeln;
  writeln('Множество C:');
  for i:=0 to 255 do
    if i in c then
      write(i:4);
  writeln;
  z:=[];
  z:=a+b+c;
  writeln('Множество A + B + C:');
  for i:=0 to 255 do
    if i in z then
      write(i:4);
  writeln;
  y:=[];
  y:=a*b-c;
  writeln('Множество A * B - C:');
  for i:=0 to 255 do
    if i in y then
      write(i:4);
 
  readln;
end.

y:=a*b-c;