Решить эту в паскале, просто для новичка и с объяснениями, почему выполнено то или иное действие. надо.. дано целое к и набор из ненулевых чисел, признак его завершения- число 0. вывести количество чисел в наборе, меньших к.
Выбираем переменную для счетчика, например count, обнуляем ее. Вводим значение переменной k. В цикле перебираем все числа из набора по порядку (хорошо бы их сначала оформить в виде массива). Сравнивая числа со значением k по условию: if a[i]<k then count:=count+1. после окончания цикла выводим на экран значение k.
if a[i]<k then count:=count+1. после окончания цикла выводим на экран значение k.