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

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

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

решение задачи

var a,i: integer;
begin
    writeln('vvedite chislo a');
    readln(a);
    if a > 1 then
    for i := a downto 1 do
       begin
          if ((i mod 5) = 0) then
             write(i , ' ')
       end else
    writeln('oshibka vvedite chislo a bolshe 1');
    readln();
end.