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

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

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

var a, i: integer;
begin
   writeln('Введите целое число:');
   readln(a);
   while a >= 1 do
    begin
      write(1, ' ');
      i := 5;
      while i <= a do
       begin
       write(i, ' ');
       if i <= a then i += 10;
       end;
     writeln('Введите целое число:');
     readln(a);
    end;
   readln();
end.