Определить, сколько раз последовательность меняет знак

var
a:array[1..100] of integer;
k,i,x,n:integer;
 
begin
 
write('N - ');readln(n);
repeat
inc(x);
read(a[x]);
if a[x]=0 then break;
until (a[x]=0) or (x=n);
i:=0;
for i:=1 to x-1 do
if ((a[i]>0)and(a[i+1]<0)) or ((a[i]<0)and(a[i+1]>0))  then inc(k);
writeln('Колич = ',k);
 
end.

var
a:array[1..100] of integer;
k,i,x,n:integer;
 
begin
 
write('N - ');readln(n); // задаем размер последовательности
repeat
inc(x);   // увеличиваем значение Х на 1
read(a[x]);   // присваем X-му эл-ту массива , введеное ранее число X
until (a[x]=0) or (x=n); // повторяем цикл , пока X-й эл-т массива не будет равен 0 или значение X = N
i:=0;     // обнуляем значение Х
for i:=1 to x-1 do    // цикл для перебора всех элементов массива
if ((a[i]>0)and(a[i+1]<0)) or ((a[i]<0)and(a[i+1]>0))  then inc(k); // если I-й эл-т имеет знак отличный от I+1-го эл-та массив, то увеличиваем K на 1
writeln('Колич = ',k);  // выводим значение K
 
end.

Uses crt;
 
var x,y:real;
i:integer;
 
begin
   x:=0.1;
   y:=1;
   repeat
   y:=y*(1+sin(x));
   x:=x+0.1;
   until x>10;
   Writeln('Ответ: ',y:0:30);
end.

Uses crt;
 
var x,y:real;
 
begin
x:=0.1; // задаем начальный шаг
y:=1;   // y = 1 для умножения на другие числа
repeat
y:=y*(1+sin(x));   // вычисляем произведение
x:=x+0.1;          // увеличиваем шаг X на 0,1
until x>10; // если х > 10, то завершаем цикл , иначе повторяем цикл
Writeln('Ответ: ',y:0:15); // выводим полученное значение Y на текстовое окно
end.