Урок 10.1 Задание 5

Задание 5 Урок 10.1

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

var a,i:integer;
begin
  writeln('Введите значение переменной a:');
  readln(a);
  if a>1 then
  begin
  for i:=a downto 1 do
    if (a mod 5=0) then 
      write(i, ' ') 
  end
  else
      writeln('ошибка');
readln();
end.    

Консоль:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64