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

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

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

var a, b: integer;

begin
  a:=1;
  while a>=1 do
    begin
      writeln('vvedite chislo: ');
      readln(a);
      b:=1;
        repeat
          if ((b mod 2)=1)and((b mod 5)=0) then
          write (b, ' ');
          b:=b+1;
        until b>a;
        writeln();
    end;
  writeln();
  writeln('<<Konec>>');
  readln();
end.