Задание звучит: Дана последовательность целых чисел, за которой следует ноль.…

Program exapmle2; var x,y,k: integer; begin writeln ('Эта программа определяет, число соседств чисел с одинаковыми знаками'); write ('Введите число: '); read (x); y: =x; write ('Введите число: '); //добавить эти 2 строки read (x); k: =0; while x<>0 do // поменять у на х begin //if x*y<0 then inc (k); убрать эту строку if x*y>0 then inc (k); y: =x; read (x); // изменить у на х end; writeln (' Число соседств ',k); writeln ('нажмите Enter для завершения работы программы'); readln; end.