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

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

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

var a,b,n, i : integer;
begin
  writeln('vvedite chislo');
  readln(a);
  n := 11;
  b := 1;
  while b <= a do
     begin
       write('+');
       b += 1;
     end;
  write('---');
  n := n - (a + 1);
  for i := 1 to n do
      write('+');
  readln();
end.    

Вывод консоли:

vvedite chislo
3
+++---+++++++