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

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

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

var m, n: integer;
  begin
    for m:=1 to 10 do
      begin
        if (m mod 2)=0 then
          for n:=1 to 5 do
            write(n, ' ');

        if (m mod 2)=1 then
          for n:=1 to 2 do
            begin
              if (n > 0) then
                write(n, ' ');
            end;
          writeln();
      end;
    readln();
  end.

КОНСОЛЬ:

1 2
1 2 3 4 5
1 2
1 2 3 4 5
1 2
1 2 3 4 5
1 2
1 2 3 4 5
1 2
1 2 3 4 5