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

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

Подготовительная задача для "счет"

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

var i, a: integer;
begin
  write ('Введите число: ');
  readln(a);
  if (a<=10) then      // проверка введенного числа, чтобы оно не превысило количество костей
  begin
    for i:=1 to 13 do  // в цикле счетчик до 13: 10 костей и 3 пустых места
      if (i <= a){- это само число} or (i > a+3){- это оставшиеся кости в конце спицы} then
        write('+ ')    // прописываем кости
      else             // условие не сработало, значит это одно из 3 пустых мест
        write('- ');   // заполняем пустые места
  end;
  readln();
end  

Вывод в консоли:

Введите число: 7
+ + + + + + + - - - + + +