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

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

var n,i:integer;
begin
  writeln('Vvedite chislo ot 0 do 9: ');
  readln(n);
  for i:=1 to 11 do
  begin
    if(n<>0) then write('+');
    if(n=0) then write ('---');
    n:=n-1;
  end;
end.  

Консоль:

Vvedite chislo ot 0 do 9: 
5

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