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

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

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

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

var a, i : integer;

begin
  write('Enter an integer : ');
  readln(a);
  for i := 0 to 10 do
  begin
    if i < a then // вывод элемента если значение цикла меньше искомого
      write('+')
    else
      if i = a then // вывод разделителя при совпадении значений
        write('---')
      else
        write('+'); // заполнение строки
  end;
  readln();
end.