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

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

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

var i,j,m,n: integer;
begin
  write('vvedite 4islo M - ');
  readln(m);
  write('vvedite 4islo N - ');
  readln(n);
  begin
    for i := 1 to m do
    begin
      if((i mod 2)=1) then
        n:=n div 2
      else
        n:=n*2;
      for j := 1 to n do
        write(j);
        writeln();
    end;
  end;
  readln();
end.