написание программ в lazarus

1 задача: дано целое число N(>0). вывести все целые числа от 0 до N включительно, повторяя каждое число столько раз, каково его значение. (например 2 повторяется 2 раза)

2 задача: дан целочисленный массив размера N. найти три его самых больших по величине элемента.

3 задача: найти наименьший четный элемент массива A(N,N). если этого элемента нет, вывести среднее арифметическое массива.

4 задача: дана строка содержащая несколько слов. вывести из этой строки все согласные буквы, сравнить их количество с количеством гласных.

пример на первую задачу скинул в файле.