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

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

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

var   n, i: integer;
begin
  while (1=1) do // делаем бесконечный цикл
  begin   //  начало тела внешнего цикла
    write('Введите число: ');
    readln(n);    // считываем число, введенное пользователем
    if n >=1 then // условие на ввод пользователем числа не меньше единицы
    begin
      for i:=1 to n do // вложенный цикл, верхняя граница - введенное пользователем число
      begin
        if (i mod 2 = 1) and (i mod 5 = 0) then //условие - нечетные, делятся на 5
        write(i, ' '); //выводим значения счетчика вложенного цикла, отвечающие условию
      end;
      writeln();
    end else   //  пользователь ввел число меньше единицы
      break;   // прерываем цикл
  end;  // конец тела внешнего цикла
  writeln('Программа завершена'); // сообщение появится только, когда цикл будет прерван, т.е. когда пользователь введет число меньше единицы
  readln();
end. 

Вывод в консоли:

Введите число: 64
5 15 25 35 45 55
Введите число: 12
5
Введите число: 6
5
Введите число: 0
Программа завершена