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

Вложенные циклы

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

var k,l,m,n: integer;
begin
  k:=1;
  writeln('write M num');
  readln(m);
  writeln('write N num');
  readln(n);
  repeat
    if (k mod 2 = 0) then
      for l:=1 to n do
        write(l,' ')
    else
      for l:=1 to (n div 2) do
        write(l,' ');
    if (l=n) or (l = n div 2) then
      writeln();
    k:=k+1;
  until (k>m) ;
  readln();
end.

//write M num
//6
//write N num
//13
//1 2 3 4 5 6
//1 2 3 4 5 6 7 8 9 10 11 12 13
//1 2 3 4 5 6
//1 2 3 4 5 6 7 8 9 10 11 12 13
//1 2 3 4 5 6
//1 2 3 4 5 6 7 8 9 10 11 12 13