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

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

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 23 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

Как проверять:

Если мы введем число 55, то программа должна вывести в ответ:

46 23

Если мы введем число 5, то программа должна вывести в ответ ноль чисел (вообще ничего)
Если мы введем число -4, то программа должна сообщить об ошибке

var n: integer;
begin
  write('Введите число больше единицы: ');
  readln (n); // считываем введенное число
  if n > 1 then // проверка, чтобы введенное число было больше единицы
    repeat    // начало тела цикла
      if n mod 23 = 0 then  // проверка на делимость на 23 без остатка
        write(n, ' '); // выводим число, отвечающее условию
      n := n - 1; // уменьшаем n на 1
    until (n<23)  // выходим из цикла, если n будет меньше 23, т.к 23 это последнее число, которое делится на 23 без остатка
  else  // если введенное число не больше единицы
    writeln('Ошибка!'); // выводим сообщение об ошибке
  readln();
end.     

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

Введите число больше единицы: 55
46 23

Введите число больше единицы: 5

Введите число больше единицы: -4
Ошибка!