fkn+antitotal

Задача 2 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):

Задача 1 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

var m, a, b,m2: integer;
begin
  a:=1;
  m := 10; 
  m2:=4;
  repeat
    b:=1;
    repeat
      write('-');
      b+=1;
    until (b>m);
    writeln();
    a+=1;
  until (a>m2);
  readln();
end.  

Вывод консоли:

----------
----------
----------
----------

Задача 23 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами.

Задача 22 Урок 13.1:

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.

Задача 21 Урок 13.1:

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные

Задача 20 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

Один цикл:

Задача 19 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18
1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

Один цикл:

Задача 18 Урок 13.1:

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

Два цикла:

Задача 17 Урок 13.1:

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведите сообщение об ошибке. Также пользователь вводит второе число M, которое отвечает за длину возрастающего фрагмента.

Задача 16 Урок 13.1:

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат: 8 10 3 12 14 3 16 18 3 20

Два цикла: