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

Вложенные циклы

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

var a,i: integer;
begin
  repeat
    begin
      writeln('write integer num ');
      read(a);
      for i:=1 to a do
        if (i mod 5 = 0) then
          write(i, ' ');
      writeln();
    end;
  until (a < 0) ;
  writeln('over');
  readln(); readln();
end.
//write integer num
//22
//5 10 15 20
//write integer num
//3
//
//write integer num
//-1
//
//over