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

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

program project102;
var i: integer;
begin
  writeln ('vvedite celoe chislo');
  readln (i);
  for i:=i downto 1 do
    begin
      if (i>1) and ((i mod 5) = 0) then
        writeln (i,' ');
    end;
      if i<1 then
        writeln ('Oshibka');
        readln();
end.