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

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

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

var   a,i:integer;
begin

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

   while (a > 1) do
   begin
      for i:=1 to a do
       if((i mod 2) = 1) and ((i mod 5) = 0) then begin
         write(i, ' ')
       end;
      writeln();
    writeln('vvedite chislo > 1');
    readln(a);
    end;

   writeln('konec!');
   readln();
end.