Free PASCAL

Se dă:
1) var a: array [1..n] of integer ;
n :byte; (pentru n<=100)
2) de citit n şi a;
3) de scris elementele tabloului a;
4) de determinat daca sunt elemente consecutive pare in tablou, si de raspuns 'da' sau 'nu'
5) de determinat daca elementele lui a sunt in ordine crescatoare
6) daca nu sunt in ordine crescatoare, atunci de aranjat in ordine descrescatoare
7) daca elementele sunt in ordine crescatoare, de inversat tabloul