Решение задачи 4 из главы 13.1

Решение задачи 4 из главы 13.1

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

program Project1;
var i, a: integer;
begin
  repeat
    writeln('Vvedite zeloe chislo:');
    readln(i);
    for a:=1 to i do
         if (((a mod 2) = 1) AND ((a mod 5) = 0)) then
         write(a,' ');
    writeln();
  until (i<1);
  write('Konez programmy');
readln();
end.