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

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

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

var a, i, k:integer;
  begin
    a:=9;
    k:=0;
    for i:=1 to 13 do
      begin
        if ((i>a) and (k<3)) then
          begin
            write('-');
            k:=k+1;
          end
        else
          write('+');
      end;
    readln();
  end.