Задача 10 урок 13.1

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

var M, N, i, s, k: integer;
begin
  writeln('Vvedite N');    //УТОЧНИТЬ УСЛОВИЕ ЗАДАЧИ
  readln(N);
  writeln('Vvedite M');
  readln(M);
  for i := 1 to M do
  begin
    if i mod 2 = 0 then
    begin
      for s:= 1 to N do
        write(s, ' ');
    end
    else if (N div 2 > 0) then
      for k := 1 to (N div 2) do
        write(k, ' ');
    writeln();
  end;
  readln();
end.