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

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

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

program task4;
var a: integer;
begin
  a := 1;
  while (a<1) do
  begin
    writeln ('Vvedite chislo');
    readln(a);
    if (a mod 2<>0) and (a mod 5=0) then
    writeln (a);
    a:=a+1;
  end;
  readln()
end.