Составьте алгоритм определения...

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

 

function NumDaY(DD,MM,YYYY:integer):long;
begin
if YYYY/4=YYYY\4 then
m=[31,29,31,30,31,30,31,31,30,31,30,31]
else
m=[31,28,31,30,31,30,31,31,30,31,30,31]
endif;
 
for i=1 to MM-1 do
DD_t=dd_t+m
end;
if YYYY>=0 then
for i=1 to YYYY do begin
if YYYY/4<>YYYY\4 then
DD_T=DD_t+365
else
DD_t=DD_t+366
end;
else
for i=1 to YYYY do begin
if YYYY/4<>YYYY\4 then
DD_T=DD_t-365
else
DD_t=DD_t-366
end;
endif
end;
 
begin
readln(DD1,MM1,YYYY1);
readln(DD2,MM2,YYYY2);
res=NumDay(DD2,MM2,YYYY2)-NumDay(DD1,MM1,YYYY1)
writeln(Res)
end.
 
Пояснение - вычисляем порядковый номер дня по дате, разница в днях определяется как разница номеров.