fkn+antitotal

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль). Задание: визуализируйте на счетах введенное пользователем число.

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

var n,i:integer;
begin
  writeln('Vvedite chislo ot 0 do 9: ');
  readln(n);
  for i:=1 to 11 do
  begin
    if(n<>0) then write('+');
    if(n=0) then write ('---');
    n:=n-1;
  end;
end.  

Консоль:

Vvedite chislo ot 0 do 9: 
5

+++++---+++++

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

var n,m,j,i:integer;
begin
  n:=5;
  m:=6;
  for i:=1 to n do
    begin
      for j:=1 to m do
          if((i=1)or(i=n)or(j=1)or(j=m)) then write ('+')
          else write('-');
    writeln();
    end;
end. 

Консоль:

++++++
+----+
+----+
+----+
++++++

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

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

var n,m,i,j:integer;
begin
  n:=5;
  m:=6;
  i:=1;
  j:=1;
  repeat
    repeat
      write ('-');
      j:=j+1;
    until (j>n);
    writeln();
    i:=i+1;
    j:=1;
  until (i>m);
end.

Консоль:

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

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

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

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

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

На начало 2022 года в программе можно выделить три условных "ступени":