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

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

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

var b,s,i,j,a,w: integer;
begin
  writeln('Введите число');
  readln(b);
  s:=3;
  w:=1000000;
  for i:=1 to 7 do
    begin
      for j:=1 to 13 do
       begin
         a:=(b div w);
          if (j<=s+a) and (j>a) then
            write('-')
            else
             write('+');
            end;
      writeln();
        b:=(b mod w);
        w:=(w div 10);
      end;
readln();
end.