Задача 2 Урок 10.1

Урок 10.1

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

var i, a: integer;

begin
    writeln('Vvedite chislo bolshe 1');
    readln(a);

    if (a > 1) then
        begin
            for i := a downto 1 do
                begin
                    if ((i mod 5) = 0) AND (a > 1) then
                        write(i, ' ') ;
                end;
        end

    else if (a < 1) then
        writeln('Oshibka: vedite chislo bolshe 1');
    readln();
end.

КОНСОЛЬ

Vvedite chislo bolshe 1
15
15 10 5