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

Урок 13.1

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля).
Предыдущая задача:
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
11......NN}M раз

var a, i, c, d: integer;
   
begin
  writeln('Vvedite kolichestvo cifr v stroke');
  readln(a);
  writeln('Vvedite kolichestvo strok');
  readln(i);
  for c := 1 to i do
  begin
    if (((c mod 2) <> 0) and ((a / 2) > 0)) then
    begin
     for d := 1 to (a div 2) do 
       write(d, ' ');
     writeln();
    end
    else if ((c mod 2) = 0) then
    begin
      for a := 1 to a do
        write(a, ' ');
      writeln();
    end;
  end;
end.

КОНСОЛЬ

Vvedite kolichestvo cifr v stroke
8
Vvedite kolichestvo strok
10
1 2 3 4 
1 2 3 4 5 6 7 8 
1 2 3 4 
1 2 3 4 5 6 7 8 
1 2 3 4 
1 2 3 4 5 6 7 8 
1 2 3 4 
1 2 3 4 5 6 7 8 
1 2 3 4 
1 2 3 4 5 6 7 8