Урок 10 задача 4

Урок 10 задача 4

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

var a, i: integer;

  begin
    writeln('Введите целое число больше единицы: ');
    readln(a);

      for i := a downto 1 do

        if ((i mod 5) = 0) and (i>1) then
          write(i, ' ')
        else
          if a = 1 then
            writeln('Ошибка');

    readln;
  end.