Даны 2 множества, 3-е задано формулой. Определить в явном виде (списком) множество D. TurboPascal

[egoz]

Всем здравствуйте.
Прошу помощи в составлении программы для решения такой задачи: см. вложение.
Есть пример из лекции для такой задачи:
Пусть Х - множество {1, 2, 3, 4}, а Y- множество {х: х = y+z; y,z X}. Определить в явном виде (списком) множество Y.

рrogram spisok;
type
   Un=set of 1..255; {определяем универсум}
var
   A,Y:Un;
   i,j,k: Integer;
begin
   A:=[1,2,3,4];
   for i:=1 to 255 do
     If i in A then
         For j:=1 to 255 do
              If  (j in A) and (j<>I) then
                      Begin
                      k:=i+j;
                      INCLUDE (Y,k); {включаем найденный элемент}
                      end;
   for i:=1 to 255 do  
       If i in Y then writeln(i); {выводим на экран найденной множество в виде списка}
end.

Как-то надо переделать и дописать под мои условия.

[Stilet]

Ну и задачка...
Разве что так:

k:=0;l:=0;
while (k<255)and(l<255) do begin
  while not (k in c) and (k<255) then inc(k);
  while not (l in e) and (l<255) then inc(l);
 include(D,k+l);
 inc(k);inc(l);
end;

А потом выводи результирующее множество.