Решение задачи 2 из главы 10.1

Решение задачи 2 из главы 10.1

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

program Project2;
var i, a:integer;
begin
  writeln('Vvedite zeloe chislo:');
  read(a);
  if (a >= 1) then
     begin
          for i:= a downto 1 do
              if ((i mod 5) = 0) then
                 write(i, ' ');
     end
  else
       write('Vy vveli otrizatelnoe chislo ili chislo menshe 1.');
  readln();readln();
end.