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

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

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

var i,a: integer;
begin
a:=2;
while (a>1) do
begin
readln(a);
if a>1 then
    for i:=1 to a do
    begin
        if (i mod 2=1) and (i mod 5=0) then
        write(i,' ');
    end
else if a<1 then
    writeln();
end;
end.