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

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

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

var i, j,a, b, c, e: integer;
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;
  readln();
end.
   

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

Vvedite celoe polozhitelnoe chislo
1234567
+---+++++++++
++---++++++++
+++---+++++++
++++---++++++
+++++---+++++
++++++---++++
+++++++---+++