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

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

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

var i: integer;
  begin
    i:=1;
    repeat
      readln(i);
      writeln();
      while i>0 do
          begin
            if (((i mod 2)<>0) and ((i mod 5)=0)) then
              writeln(i);
            i:=i-1;
          end;
      writeln();
      i:=1;
    until (i<1);
    readln();
  end.