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

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

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

program  u13z4;
var i,j: integer;

begin
   writeln('vvedite chislo') ;
   readln(i);

     if (i >0) then
     begin
       for j:=1 to i do
         if (j mod 2=1) and (j mod 5=0) then
       writeln(j);
     end ;
 readln();
end.