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

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

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

program project1;
var numb, i:integer;

begin
  numb:=1;
  while(numb>=1)do
    begin
      i:=0;
      writeln('vvedite chislo'); readln(numb);
      while(i<numb)do
        begin
          i:=i+1;
          if ((i mod 2=1) and (i mod 5=0))then
             write(i,' ');
        end;
      writeln();
    end;
  readln();
end.