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

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

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

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