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

link

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

program lesson10_2;
var
  a, i : integer;
begin
  writeln('enter number a > 1');
  readln(a);
  if a > 1 then
  begin
     for i := a downto 1 do
         if i mod 5 = 0 then
            write(i, ' ')
  end
  else
     writeln('error');
  readln();
end.