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

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

var a, b: integer;
begin
  b := 1;
  repeat
    writeln('Vvedite celoe chislo');
    readln(a);
    while (b <= a) do
    begin
      if (b mod 2 = 1) AND (b mod 5 = 0) then
        write(b, ' ');
      b := b+1;
    end;
  b := 1;
  until(a < 1);
  writeln();
  writeln('Exit');
  readln();
end.