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

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

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

var a, i : integer;

begin
  repeat
    write('Enter an integer : ');
    readln(a);
    if (a > 0) then
      begin
        for i := 1 to a do
          begin
            if ((i mod 2) <> 0) and ((i mod 5) =0) then
            write(i, ' ');
          end;
      end;
  until (a < 1);
  read();
end.