Даны две календарные даты. вычислите количество дней между ними. данные вводятся в файл в формате «дд.мм.», де дд – день, мм – месяц, – год.

12 3   4   5еуапаппраиаправрвррсраррв

Const   n = 10; var   i, min, max: integer;   a: array[1..n] of integer; begin   min : = 1; max : = 1;     for i : = 1 to n do   begin       a[i] : = random(101);       write(a[i]: 4);       if (a[i] > a[max]) then           max : = i;       if (a[i] < a[min]) then           min : = i;   end;     i : = a[max];   a[max] : = a[min];   a[min] : = i;     writeln();   for i : = 1 to n do       write(a[i]: 4);   end.

Program ulitka; var sunnyday: array [1..30] of boolean; a, b, c, i: integer; begin writeln('a = '); readln(a); writeln('b = '); readln(b); b : = b * 100; randomize; for i : = 1 to 30 do begin       if random(2) = 1 then sunnyday[i] : = true else sunnyday[i] : = false; end; for i : = 1 to 30 do begin   if sunnyday[i] = true then begin     a : = a + 2;     if a > b then     a : = b;   end   else   begin     a : = a - 1;     if a < 0 then     a : = 0;   end;   end; writeln('дни месяца были таковы: '); for i : = 1 to 30 do begin if sunnyday[i] = true then writeln(i, '. солнечный') else writeln(i, '. пасмурный') end; writeln('к концу 30 дня местоположение улитки равно ', a, ' см над землей'); readln; end.