Решение задачи 20 из главы 13.1

Решение задачи 20 из главы 13.1

20. Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные

program Project20;
var a, b, c, g: integer;
begin
  b:=1;
  c:=0;
  writeln('Vvedite zeloe polozhitelnoe chislo:');
  readln(a);
  if (a > 0) then
  begin
     for g:=1 to a do
     begin
        if ((g mod 2) = 1) then
           if ((b mod 2) = 0) then
             write(g, ' ');

        if ((g mod 2) = 0) then
             if ((b mod 2) = 1) then
                 write(g, ' ');

        c:=c+1;

        if (c >= b) then
        begin
           writeln(' ');
           c:=0;
           b:=b+1;
        end;
     end;
    end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.