Задача 4 Урок 13.1

Урок 13.1

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

var a, i: integer;

begin
  readln(a);
  
  while (a > 0) do
  begin

    for i := 1 to a do
    begin

      if ((i mod 2) <> 0) and ((i mod 5) = 0) then
        writeln(i);

    end;

    readln(a);
  end;

end. 

КОНСОЛЬ

20
5
15
0