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

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

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

var a,b : integer;
begin
  writeln('vvedite chislo');
  readln(a);
    while a>1 do
      begin
       for b:=1 to a do
         if odd(b) and ((b mod 5) = 0) then
           write(b);
         writeln();
         writeln('vvedite chislo');
         readln(a);
      end;
    writeln('vse');
  readln();
end

.