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

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

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

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

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

program project1;
var del,i,j,m,promZnach1,numb:integer;

begin
  i:=0;
  j:=0;
  del:=1000000;
  write('Введите число: '); readln(numb);
  while(i<7)do
  begin
    i:=i+1;
    m:=0;
    promZnach1:=numb div del;
    numb:= numb mod del;
    while(j<13)do
    begin
      if(j<promZnach1)then
        write('+')
      else if(m<3)then
        begin
          write('-');
          m:=m+1;
        end
        else
          write('+');
        j:=j+1;
    end;
  writeln();
  j:=0;
  del:=del div 10;
  end;
readln();
end.