Урок 12.1 Задание 5

Урок 12.1 Задание 5

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

program Pr12_1_5;
var a:integer;
begin
  writeln('Введите число:');
  readln(a);
  if (a>1) then
  begin
    repeat
     if (a mod 23 = 0) then write(a:4);
     a:=a-1;
    until (a=1);
  end else
  writeln('Ошибка!');
  readln();
end.

Консоль:

Введите число:
55
  46  23