Задание 20 Урок 13.1

Задание 20 Урок 13.1

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

3
4 6
7 9 
12 14
15 17

var i,n,i1,a: integer;
begin
write('Vvedite chislo: ');
readln(n);
i:=1;
i1:=1;
a:=0;
 while(i1<=n) do begin
  repeat
    if((i mod 2) = 0) and ((i1 mod 2) = 1) then begin
      write(i1, ' ');
    end
    else if((i mod 2) = 1) and ((i1 mod 2) = 0) then begin
      write(i1, ' ');
    end;
   i1:=i1+1;
   a:=a+1;
  until(i<=a) or (i1>n);
  a:=0;
  writeln();
  i:=i+1;
 end;
readln();
end.