Урок 13.2 Задание 4

Задание 4 Урок 13.2

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

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

var a, i : integer;
begin
  write('vvedite chislo : ');
  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.

Консоль:

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