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

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

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

var i, j: integer;
  begin
    write('vvedite chislo: ');
    readln(j);

    while (j >= 1) do
      begin
        for i:=1 to j do
          if ((i mod 2)=1) and ((i mod 5)=0) then
            write(i, ' ');
        write('vvedite chislo: ');
        readln(j);
      end;

    write('konec!');
    readln();
  end. 

КОНСОЛЬ:

vvedite chislo: 30
5 15 25 vvedite chislo: 0
konec!