Задание 10 Урок 13.1

Задание 10 Урок 13.1

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

var i,j,n,m,t: integer;
begin
writeln('vvedite kolichestvo raz');
   readln(m);
writeln('vvedite do kokogo chisla');
   readln(n);

  i := 1;
  while (i <= m) do
   begin
    if((i mod 2) = 1)then
     for j := 1 to n do
    else
      for j := 1 to (n div 2) do
      write(j, ' ');

   writeln();
   i:=i+1;
   end;
  readln();
end.