Задача 5 урок 13.2

Задача 5 урок 13.2

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

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

Задание: визуализируйте на счетах введенное пользователем число.

Примеры:

Пользователь вводит: 7
Получаем:

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

program zadacha5;
var i, j ,n, m, x, a :integer;
begin
  writeln ('Vvedite chislo');
  readln(n);
  a:=1000000;
  while i < 7 do
    begin
      j:=0;
      m:=0;
      x:=n div a;
      n:=n mod a;
        while j < 13 do
          begin
            if (j < x) {and (i >= n)} then
              write('+')
            else
            if m < 3 then
              begin
                write('-');
                m:=m+1;
              end
            else
              write('+');
            j:=j+1;
          end;
      writeln();
      i:=i+1;
      a:=a div 10;
    end;
  readln();
end.