Прям ответить на вопросы
заранее
зачем используется свойство обеспечение целостности данных в ms access?

//Блок-схема во вложении
//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

Я нашел для тебя решение, но сам я в нём не уверен, оно не моё.

Решение:

1.Задача сводится к нахождению числа точек по ширине экрана. Выразимразмер диагонали в сантиметрах. Учитывая, что 1 дюйм=2,54 см., имеем: 2,54 см • 15 = 38,1 см. 2.Определимсоотношение между высотой и шириной экрана для часто встречающегося режима экрана 1024х768 точек: 768 : 1024 = 0,75.3.Определимширину экрана. Пусть ширина экрана равнаL, а высотаh,

h:L=0,75, тогдаh= 0,75L.

По теореме Пифагора имеем: L2+ (0,75L)2= 38,121,5625 L2= 1451,61 L2≈ 929L ≈ 30,5 см. 4. Количество точек по ширине экрана равно: 305 мм : 0,28 мм = 1089. Следовательно, максимально возможным разрешением экрана монитора является 1024х768.

ответ: 1024х768.