Задача 19 Урок 13.1

Задача 19 Урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

var b,i,s,n,a: integer;
begin
  writeln('Введите число');
  readln(b);
    s:=0;
    n:=1;
    a:=1;
    for i:=1 to b do
      begin
         if ((a mod 2)=0) and ((i mod 2)<>0)  then
             write(i,' ')
         else
           if ((a mod 2)<>0) and ((i mod 2)=0) then
              write(i,' ');
         s:=s+1;
           if (s=n) then
             begin
               writeln();
               n:=n+1;
               s:=0;
               a:=a+1;
             end;
        end;
  readln();
end.