Урок 10. Задача 2

Урок 10. Задача 2

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

var i,a: Integer;
begin
readln(a);
if a>1 then
    for i:=a downto 1 do
    begin 
        if ((i mod 5) = 0) then
            write(i, ' ')
    end else
            write('ошибка') 
end.