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

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

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

var
  i, a: integer;
begin
  repeat
    writeln('Vvedite celoe chislo: ');
    readln(a);
    for i:= 1 to a do
      begin
        if ((i mod 2) <> 0) and ((i mod 5) = 0) then
           write (i, ' ' );
      end;
    writeln();
  until (a < 1);
  writeln('Cikl zaverschen');
  readln();
end.