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

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

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

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

Вывод консоли:

vvedite chislo
20
5 15 vvedite chislo
30
5 15 25 vvedite chislo
40
5 15 25 35 vvedite chislo
50
5 15 25 35 45 vvedite chislo
0
End