при какой температуре кристаллогидрат теряет воду? помогите плз

Задание звучит :

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

Что нужно изменить в программе, чтобы выполнялось условие задачи.

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

товар стоил 150 руб. его цена повысилась на 12% сколько теперь стоит этот товар?   Не только решите но и объясните почему пожалуйста)

Помогите пж ,очень нужно..

1.Почему ежи-смирные пишется через тире?

2.Почему никому пишет вместе? и с буквой И?

3.Почему никого пишется вместе , и с буквоой И?

4.Почему тут запятая.....

Их маленькие берлоги покрывают снежные сугробы,и они проспокойно спят всю зиму?

K ->KOH-> KCO3 ->KCl ->K2SO4   с объяснением пожалуйста:)