Pascal. Разработать алгоритм и программу поиска положительных элементов в главно