Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.cpoчно

Сообщение на тему "Материальная и духовная культура городов закавказья" 

Переведите на английский, употреб­ляя глаголы в Present, Past или Future Simple Passive. Мне расскажут- — Мне расскажут- — Мне расска­зали зывают Мне покажут- — Мне покажут- — Мне пока­зали зывают Ее привели — Ее приводят — Ее приведут Нас спросили – Нас спрашивают – нас спросят Нам ответили- нам отвечают –нам ответят Нас послали – нас посылают – нас пошлют Им дали – им дают – им дадут Ему помогли – Ему помогают- Ему помогут

Приведены запросы в поисковой системе: 1)Олимпиада 2)олимпиада, коньки, лыжи 3)олимпиада, коньки 4)Олимпиада, Сочи Представьте результаты запроса с помощью кругов Эйлера

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

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

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

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.