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

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

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

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

program  u132z4;
var m, i, j, n: integer;
begin

  for n:=0 to 9 do
    if (n=0) then
      for m:= 1 to 13 do
        if (m < 4) then
          write ('-')
          else
          write ('+');
  readln();
end.              

program  u132z4;
var m, i, j, n: integer;
begin

  for n:=0 to 9 do
    if (n=3) then
      for m:= 1 to 13 do
        if (m < 7) and (m > 3) then
          write ('-')
          else
          write ('+');
  readln();
end.                      

program  u132z4;
var m, i, j, n: integer;
begin

  for n:=0 to 9 do
    if (n=9) then
      for m:= 1 to 13 do
        if (m < 13) and (m > 9) then
          write ('-')
          else
          write ('+');
  readln();
end.