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

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

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

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

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

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

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

если девять:

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

program u132z4;
var n,j,i,a: integer;
begin
  writeln('Vvedite chislo ot 1 do 9');
  readln(n);
  a:=10-n;
  for i:=1 to n do
    write('+');
  write('---');
  for i:=1 to a do
    write('+');
  readln();
end.