Составьте алгоритм определения числа дней между двумя датами и нарисуйте блок-схему

//Pascal ABC.NET 3.1 сборка 1219uses system;Var d1,d2:datetime; a:integer;beginwriteln('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Год:19982 дата:День:2Месяц:1Год:1999Пример вывода:Res:366