Используя операции со множествами, выделите подмножество чисел Фибоначчи, кратных некоторому заданному числу A... - PascalABC.NET - Ответ 12959703

Program Task_01_Set;
Type
   T0=Byte;
   T = Set Of T0;
 
Procedure Property_Set_1(Var X: T);
   Var a: Byte; b,c: Word;
Begin
   X := []; a := 1; b := 1;
   Repeat
      If b >= Ord(Low(T0)) Then X := X+[T0(b)];
      c := a+b; a := b; b := c
   Until b > Ord(High(T0));
End;
Procedure Property_Set_2(D: Byte; Var X: T);
   Var j: Byte; s: String;
Begin
   X := [];
   For j := Ord(Low(T0)) To Ord(High(T0)) Do
      If j Mod D = 0 Then X := X+[T0(j)];
End;
Function Count_Set(Var X: T): Byte;
   Var E: T0; K: Byte;
Begin
   K := 0;
   For E := Low(T0) To High(T0) Do If E In X Then K := K+1;
   Count_Set := K;
End;
Procedure Task(D: Byte; Var K: Byte; Var X: T);
   Var X1,X2: T;
Begin
   Property_Set_1(X1);
   Property_Set_2(D,X2);
   X := X1*X2;
   K := Count_Set(X);
End;
Procedure SetWrite(X: T);
   Var E: T0;
Begin
   For E := Low(T0) To High(T0) Do
      If E In X Then Write(E,' '); WriteLn;
End;
Var
   X: T; D,K: Byte;
Begin
   Write('D? '); ReadLn(D);
   Task(D,K,X);
   If X = [] Then WriteLn('Результирующее множество пусто')
   Else Begin
      WriteLn('Элементы множества:'); 
      SetWrite(X);
      WriteLn('Количество элементов = ',K);
      End;
End.