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

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

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

program zadacha4;
var i, j: integer;
begin
  i:=2;
  while (i >= 1) do
    begin
      writeln('Vvedite chislo');
      readln(i);
      for j:=1 to i do
        if (j mod 5 = 0) and (j mod 2 = 1) then
          write(j,' ');
      writeln();
     end;
  writeln('Vvedeno chislo menshe 1');
  readln();
end.