Как перевести свою дату рождения в двоичную систему 20.08.2005

если в лоб(то есть если все перевести в 2 не считая точек ) то можно записать так 10100.1000.11111010101

Константин Симонов
Если родилась красивой,
Значит, будешь век счастливой.

Если будешь гордой мужем —
Скажут: потому что нужен.
Как других, с ним разлучит могила —
Всем простят, тебя возьмут в немилость.
Позабудешь — скажут: не любила,
Не забудешь — скажут: притворилась.

Владаимр Высоцкий
Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош,-
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.

Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик,-
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.

Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной,-
Значит, как на себя самого,
Положись на него.

Насколько я понял, множество - это просто все эти числа, только без повторений.

Заведем  массив boolen, где будем отмечать, есть ли данное число во множестве.

var

  a : array [1..15, 1..15] of integer;

  b : array [1..30] of boolean;

  i, j, n, m : integer;

begin

  read (n, m);

  for i := 1 to 30 do b[i] := false; //Зануление начальных значений

  for i := 1 to n do

    for j := 1 to m do

      a[i, j] := i +j; //Заполнение массива

  for i := 1 to n do

    for j := 1 to m do

      b[a[i, j]] := true; //Формирование множества

  for i := 1 to n do

  begin

    for j := 1 to m do

      write (a[i, j], '  ');

    writeln;

  end;

  for i := 2 to 30 do

    if b[i] then write (i, '  ');

end.