Создайте программу в паскале, которая будет выводить на экран числовой ряд из 10 элементов, элементы в этой числовой последовательности чередуются по принципу: положительный, отрицательный. работает так: окно вывода: 1 -2 3 -4 5 -6 7 -8 9 -10

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  SeqGen(10,i->i.IsEven?i+1:-(i+1)).Println
end.

Результат
1 -2 3 -4 5 -6 7 -8 9 -10

//Pascal
var i: integer;
begin
for i := 1 to 10 do
  if i mod 2 = 0 then write(i-(i+i), ' ')
  else write(i, ' ');
writeln; readln;
end.