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

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

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

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

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

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

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

если девять:

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

program project1;
program project1;
var j,n,cout:integer;

begin
  j:=0;
  n:=11;
  write('Vvedite chislo: '); readln(cout);
  while(j<n)do
  begin
    j:=j+1;
    if(j-1=cout)then
      write('---')
    else
      write('+');
    end;
  readln();
end.