помогите написать программы для pascal abc

1) вводится натуральное число n. после этого вводится еще n целых чисел. проверить, что среди введенной последовательности чисел ни одно число не встречается два раза подряд (yes/no)
примеры:

6
121212 yes
__________

6
122121 no

2) вводится натуральное число n. после этого вводится еще n целых чисел. вывести на экран первое по счету положительное число (среди введенных) или сообщение, что такого числа нет (no)
примеры:
6
-1 3 -4 5 -6 -2 3
___________

6
-1 -2 0 -4 -4 -1 no

3) вводится натуральное число. вывести количество цифр в двоичном представлении числа
пример:

5 3
35 6

4) вводятся натуральные числа, пока не будет введено число, делящееся на 5. вывести сумму тех из них, которые больше 10. если таких чисел не окажется, вывести 0
примеры:

7 13 4 16 20 49
8 6 6 3 10 0
12 13 5 25

boolean, while, for