Урок 13.1 Задание 4

Задание 4 Урок 13.1

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

var a,i: integer;
begin
  repeat
    writeln ('введи число');
    readln (a);
      if a<1 then
        break
      else
        begin
        for i:=1 to a do
          begin
           if (((i mod 2 =1) and (i mod 5 = 0))) then
           writeln (i);
          end;
          i:= i+1;
        end;
  until (a=1);
    writeln('Конец');
end.

Консоль:

введи число
13
5
введи число
99
5
15
25
35
45
55
65
75
85
95
введи число
-3
Конец