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

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

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):

если ноль, то все кости справа:

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

если три, то значащая часть слева, а все остальные справа:

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

если девять:

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

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