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

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

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

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