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

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

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

program zadacha2;
var i, a :integer;
begin
 writeln('Vvedite chislo: ');
 readln(a);
  if a>1 then begin
   for i:=a downto 1 do
    if (a mod 5) = 0 then
     write(i,' ');
  end else
   writeln ('Chislo ne verno!');
 readln();
end.