Программа на Паскале для решения этой задачи:

program CountNumbers;
var
num, count: integer;
begin
count := 0;
repeat
read(num);
if num mod 10 <> 0 then
count := count + 1;
until num mod 10 = 0;
writeln('Количество чисел в последовательности, не считая последнего числа: ', count);
end.

Пример работы программы:

Входные данные:
5
10
7
3
0
Результат:
Количество чисел в последовательности, не считая последнего числа: 3