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

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

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

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

var
   i, m, n: integer;
begin
  m:= 10;
  n:= 9;
  for i:= 0 to m do
     begin
       if (i < n) then
          write('+ ')
       else if (i = n) then
          write('- - - ')
       else
          write('+ ');
     end;
  readln();
end.