Задание 4 Урок 13.1

Задание 4 Урок 13.1

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

var i,i1 : integer;

begin
  i := 1;
  while (i >= 1) do
  begin
    write('Введите число и нажмите ENTER:  ');
    readln(i);
  if (i < 1) then
    write('Программа завершена нажмите ENTER!')
  else
    for i1 := 1 to i do
      if ((i mod 5) = 0) then
        write(i1, ' ');
      	writeln();
  end;
  readln();
end.