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

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

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

var i, j: integer;
begin
  repeat
    writeln('vvedi chislo ');
    readln(i);
    for j := 1 to i do
      begin
        if(((j mod 2) <> 0) and ((j mod 5) = 0)) then
          writeln(j);
      end;
  until (i < 1);
  readln();
end.