паскаль задание

Создать и вывести массив у с элементами yk = f(k), где i - номер варианта, k = 1, 2, ..., 7. Выполнить задание своего варианта. В случае отсутствия искомых данных, вывести об этом сообщение.

Ненулевые элементы массива занести в другой массив.