Пример решения на языке Pascal:

program Neighbors;
var
num, prevNum: integer;
count: integer;
begin
count := 0;
write('Введите последовательность натуральных чисел (для завершения введите 0): ');
read(prevNum);
repeat
read(num);
if (num = 0) then
break;
if (num * prevNum < 0) then
count := count + 1;
prevNum := num;
until num = 0;
writeln('Количество соседств двух чисел разного знака: ', count);
end.

В этом примере программа считывает последовательность чисел от пользователя и подсчитывает количество соседств двух чисел разного знака в этой последовательности. Когда пользователь вводит 0, программа завершает работу и выводит количество соседств.