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

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

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

program  u131z3;
var a,i: integer;

begin
 a:=1;
 repeat
   begin

   writeln('vvedite chislo a');
   readln(a);

   end;
   for i:= 1 to a do

    if (i mod 2=1) and (i mod 5 =0) then
      write (i, ' ');
 until (a < 1);


end.