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

http://fkn.ktu10.com/?q=node/8697

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

program task4_lesson13_1;
var i, j : integer;
begin
      repeat
        writeln('Enter number more then 1');
        readln(i);
        for j := 1 to i do
            if (((j mod 5) = 0) and ((j mod 2) = 1)) then
               writeln('Otvet: ', j);
      until (i < 1);
  readln();
end.