Задача 17, урок 13.1

При решении задачи 17 урок 13.1 есть проблема

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 четыре числа 3 16 18 20 22 четыре числа 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810 два числа 3 14 16 два числа3....3....и т.д.

Не получается вывести цифры как показано на примере.

var   k,i,j,n,c,m,b:integer;
begin
   writeln('vvedite chislo n:');
       readln(n);
   writeln('vvedite chislo m:');
       readln(m);
   c := 3;   // объявление переменной с
   for i:=1 to n do 
       begin       // начало тела цикла
           if ((i mod 2)=0) then   // выделяем из цикла четные переменные
               k:=i; k:=k+8;      // присваивание переменной к
           for j:=1 to m do   //  цикл определяет для выделения м
               begin       // начало тела цикла
                    write(k, ' '); // выводим к
                    k:=k+2;  // увеличиваем к на 2
                    if ((j mod m)=0) then  //   выделяем из цикла нечетные переменные  чему равна м
                         write(c, ' ')   // вывод с
           end;      // конец внутреннего цикла
       end;    // конец внешнего цикла
   readln();
end.                                  
vedro-compota's picture

if ((i mod 2)=0) then   // выделяем из цила нечетные переменные

-- это четные переменные.

for j:=1 to m do // цикл внешний

- такого типа комменты вообще писать не надо,
можно написать за что цикл отвечает, а что он внутренний, итак понятно.

Проверьте все комментарии.

_____________
матфак вгу и остальная классика =)