Напишите программу (pascal)(геометрические построения средствами программирывания)

//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366

Переводим целую часть числа. Заменяем каждый разряд на код из таблицы.

Двоичная СС Восьмеричная СС

000               0

001               1

010               2

011               3

100               4

101               5

110               6

111               7

Получаем число:
7748 = 1111111002

Переводим дробную часть числа.
Получаем число:
08 = 0002
Переводим целую часть числа. Для этого разделим исходный код на группы по 4 разряда.
111111100 = 0001 1111 1100 
Затем заменяем каждую группу на код из таблицы.

Двоичная СС шестнадцатеричная СС

0000             0

0001             1

0010             2

0011             3

0100             4

0101             5

0110             6

0111             7

1000             8

 1001            9

1010             A

1011             B

1100             C

1101             D

1110             E

1111             F

Получаем число:
0001 1111 1100 2 = 1FC16