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

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

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

var a, b, M, N:integer;
begin
  readln(M);
  readln(N);
  for a:=1 to M do
    begin
      if ((a mod 2)=0) then
      for b:=1 to N do
        write(b,' ')
      else
      for b:=1 to (N div 2) do
        write(b,' ');
      writeln();
    end;
  readln();
end.