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

Задача 11 Урок 13.1:

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

program task11;
var i,j,N,M,b,a: integer;
begin
  writeln ('Vvedite N u M');
  readln(N);
  readln(M);
  a:=N; // для восстановления кол-ва символов в строке
  b:=N; // для вычисления чет. нечет. строки
  if (N>0) then //проверка N/2 меньше "0"
  begin
    for j:=1 to M do
    begin
      if (b mod 2<>0) then  //проверяем строку на четность
        N:=N div 2
      else
        N:=a;
      for i:=1 to N do
        write(i,' ');
      b:=b-1;
      writeln();
    end;
  end
  else
    writeln ('N/2 menwe "0"');
  readln()
end.