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

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

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

var a, b, m ,n : integer;
begin
  writeln('vvedite kol.povtorov');
  readln(m);
  writeln('vvedite konecnoe znachenie');
  readln(n);
  a := 1;
  while a <= m do
    begin
      if odd(a) then
        for b := 1 to (n div 2) do
           write(b,' ')
      else
        for b := 1 to n do
           write(b,' ');
        writeln();
        a := a + 1;
    end;
  readln();
end.