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

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

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

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

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

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

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

если девять:

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

program zadacha4;
var i, j ,n, m :integer;
begin
  writeln ('Vvedite chislo');
  readln(n);
  j:=0;
  m:=0;
  while j < 13 do
    begin
      if j < n then
        write('+')
      else
      if m < 3 then
        begin
          write('-');
          m:=m+1;
        end
      else
        write('+');
      j:=j+1;
    end;
  readln();
end.