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

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

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

program lesson13_10;
var
    i, j, m, n : integer;
begin
    m := 10;
    n := 10;
    if n >= 1 then
        for i := 1 to m do
        begin
            for j := 1 to n do
                if i mod 2 = 0 then
                    write(j, ' ')
                else
                    if (j * 2 <= n)then
                        write(j, ' ');
            writeln();
	    end;
	readln();
end.