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

http://fkn.ktu10.com/?q=node/8697

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

program task10_lesson13_1;
var m, i, j, n : integer;

<pre class="brush: php">begin
  writeln('Enter M'); // сколько раз вывести последовательность
  readln(m);
  writeln('Enter N'); // макс число в последовательности
  readln(n);
         for i := 1 to m do
             begin
                  if ((i mod 2) = 0) then
                    for j := 1 to n do
                        write(j, ' ')
                  else if ((n / 2) > 0) then
                       for j := 1 to (n div 2) do
                           write(j, ' ');
                  writeln();
             end;
  readln();
end.</pre>