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

Урок 13.2

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

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

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

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

если девять:

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

var a, j: integer;

begin
  writeln ('Vvedite visotu flaga');
  readln(a);
      for j := 1 to a do
        write('+');
      write('---');
      for j := 1 to (10 - a) do
        write('+');
end.

КОНСОЛЬ

Vvedite visotu flaga
5
+++++---+++++