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

Урок 13.2

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

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

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

Примеры:

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

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

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

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

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

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

Пользователь вводит: 2021
А наша программа отвечает:

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

var i, j: integer;
    a, b, c, e: longint;
begin
  writeln ('Vvedite celoe polozhitelnoe chislo');
  readln(e); 
  c := 1000000; 
  for i := 1 to 7 do 
  begin
    a := e div c; 
    b := e mod c; 
    for j := 1 to a do 
      write('+'); 
      write('---'); 
    for j := 1 to (10 - a) do 
      write('+');
    e := b; 
    c := c div 10; 
    writeln(); 
  end;
end.

КОНСОЛЬ

Vvedite celoe polozhitelnoe chislo
5555555
+++++---+++++
+++++---+++++
+++++---+++++
+++++---+++++
+++++---+++++
+++++---+++++
+++++---+++++