Написать функцию, сравнивающую две даты.функция должна возвращать(-1) если первая дата меньше второй , 0- если первая и вторая даты одинаковы и 1 -если первая дата больше второй.паскаль.тема записи

Type   date = record       day: 1..31;       month: 1..12;           year: integer ;           end; var     a: date : = (day: 8; month: 7; year: 2012);   b: date : = (day: 6; month: 7; year: 2012);       c: integer; procedure outdate(d: date); begin   with d do writeln(day, '.', month, '.', year); end; begin if a.year > b.year then c: =1                      else c: =-1 ;                                           if a.year = b.year then                                          if   a.month > b.month then                                          c: =1                                                                     else c: =-1;                                                                         if a.year = b.year then                                                       if a.month = b.month then                                                           if a.day > b.day then c: =1                                                                             else c: =-1;   if a.year = b.year then                                                                   if a.month = b.month then                                                                       if a.day = b.day     then c: =0;                                                                                                                                                               outdate(a);                                                                                 outdate(b);                                                                                 writeln('otwet: ', c); end.

Const   nn = 100; { максимальное количество элементов } var   a: array[1..nn] of integer;   i,n,k,kn,kp,ko,ke: integer; begin   writeln('введите количество элементов в массиве (n< =100): ');   readln(n);   writeln('введите элементы массива');   kn: =0; kp: =0; ko: =0; ke: =0;   for i : = 1 to n do   begin       read(k); a[i]: =k;       if k> 0 then inc(kp)       else if k< 0 then inc(kn);       if (k mod 2)=0 then inc(ke) else inc(ko)   end;   writeln('положительных элементов ',kp,', отрицательных ',kn);   writeln('четных элементов ',ke,', нечетных ',ko); end. тестовое решение: введите количество элементов в массиве (n< =100): 13 введите элементы массива 16 -5 8 21 0 -5 13 32 7 11 -4 2 -5 положительных элементов 8, отрицательных 4 четных элементов 6, нечетных 7

Числа вводятся пользователем. прикрепил скрин работы программы, вот сама программа: var a: array[1..999]of integer; i,n: integer; begin write ('введите кол-во чисел: '); readln (n); for i: =1 to n do begin write ('введите ',i,' число: '); readln (a[i]); end; writeln; write ('числа введённые пользователем: '); for i: =1 to n do write (a[i],' '); writeln; writeln; write ('положительные: '); for i: =1 to n do begin if a[i]> 0 then write (a[i],' '); end; writeln; write ('отрицательные: '); for i: =1 to n do begin if a[i]< 0 then write (a[i],' '); end; writeln; write ('чётные: '); for i: =1 to n do begin if a[i] mod 2 = 0 then write (a[i],' '); end; writeln; write ('нечётные: '); for i: =1 to n do begin if a[i] mod 2 < > 0 then write (a[i],' '); end; end.