Pascal Урок 10 Задача 2 Решение

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

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

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