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

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

var i,a:integer;

begin

  repeat
    writeln('Vvedite celoe chislo: ');
    readln(a);
    for i:=1 to a do
      if ((i mod 2=1)and(i mod 5=0)) then writeln(i,' ');
  until (a<1);
end.  

Консоль:

vedite celoe chislo: 
15

5 
15 
Vvedite celoe chislo: 
0