Решить задачу. Написать программу, которая запрашивает массив из N целых чисел, а затем выводит порядковые номера нулевых элементов массива или сообщение «Нет таких элементов».​

объединение северного и южного египта произошло около 3000 г. до н.э.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.