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

http://fkn.ktu10.com/?q=node/8697
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

var m, n, i,h: integer;
begin
writeln ('введите нужное число строк');
readln (m);
writeln ('введите число до которого выводить');
readln (n);
i:=1;
while i<=m do
begin
if ((i mod 2) =1)
then n:=n div 2
else
n:=n*2;
h:=1;
while h<=n do
begin
write (h,' ');
h:=h+1;
end;
writeln();
i:=i+1;
end;
end.