Определить количество элементов подмножества универсального множества

Program mnoz1;
(* Для заданного универсального множества U={1,2,3..109,110} и
его подмножеств:
А = {a Є U | a=5n}; B = {b Є U | b=8n}; C = {c Є U | c=4n}
(n=1,2,3,...) определить количество элементов подмножеств
универсального множеств U:
----------
-----
(A*(B*C))*(B+C) *)
{Uses Crt;}
Type Sets=Set of Byte;
Const p=5;q=8;r=4;n=110;
Var a,b,c,u:Sets;i:Byte;j:Integer;
{переменные ,b,c,u,i-множество чисел}
Procedure Foots;
{процедура, выделяющая:
элементы подмножеств A кратные p
элементы подмножеств B кратные q
элементы подмножеств C кратные r}
var i:integer;
Begin
For i:=1 To n Do
Begin
u:=u+[i];
If (i Mod p)=0 Then a:=a+[i];
If (i Mod q)=0 Then b:=b+[i];
If (i Mod r)=0 Then c:=c+[i];
End;
End;
Procedure Kolichestvo(Set0:Sets);
{процедура,считающ я кол-во элементов подмножеств }
Begin
var i,j:integer;
j:=0;{обнуление кол-в элементов}
For i:=1 To n Do
If i in Set0 Then {если число входит в данное подмножество}
Begin
Write(i,' ');{вывод элемент входящего в данное подмножество}
Inc(j);{увеличение кол-в элементов на 1}
End;
WriteLn;
WriteLn('Количество элементов:',j);{вывод кол-ва элементов}
End;
{основная программа:}
Begin {ClrScr;}
Foots;{вызов процедуры, выделяющей элементы подмножеств }
{Обозначения:
пересечение П - "*"
объединение U - "+"
_
разность (B \ C)}
WriteLn('Множество (B \ C):');
Kolichestvo(b-(u-c));
WriteLn(' _____ ');
WriteLn('Множество B*C:');
Kolichestvo(b*c);
Writeln(' ___________ ');
{вызов процедуры, считающая кол-во элементов подмножеств}
WriteLn(' _________');
WriteLn(' -----');
WriteLn('Множество (A*(B*C))');
Kolichestvo(a*(b*c));
Writeln(' ___________ ');
WriteLn(' ----- ');
WriteLn('Множество (B + C):');
Kolichestvo(b+c);
WriteLn('Множество (A*(B*C))*(B+C):');
Kolichestvo ((a*(b*c))*(b+c));
WriteLn(' _ _');
{ReadKey;}
End.

type Sets=Set of Byte;
const p=5;
      q=8;
      r=4;
      n=110;
procedure Foots(s:Sets;x:byte;var a:Sets);
var i:integer;
begin
a:=[];
for i:=1 to n do
if i mod x=0 then a:=a+[i];
end;
procedure Kolichestvo(s:Sets;c:string; var k:byte);
var i:integer;
begin
writeln('Множество ',c);
k:=0;
for i:=1 to n do
if i in s then
 begin
  write(i:4);
  inc(k);
 end;
writeLn;
writeLn('Количество элементов:',k);
end;
//основная программа
var u,a,b,c,d:Sets;
    k:byte;
begin
u:=[1..110];
//первая часть задачи, составить множества А,В,С
Foots(u,p,a);
Foots(u,q,b);
Foots(u,r,c);
Kolichestvo(a,'A',k);
Kolichestvo(b,'B',k);
Kolichestvo(c,'C',k);
//вторая часть, составить множество (A*(B*C))*(B+C)
d:=a*b*c*(b+c);
Kolichestvo(d,'A*B*C*(B+C)',k);
{writeln('Множество D=A*B*C*(B+C)');
for k:=1 to n do
if k in d then write(k:4); }
end.