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

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

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

program U13_1Z4;
var a, i: integer;
begin
  repeat
    writeln('vvedite chislo');
    readln(i);
    while (i>=a) do
      begin
        if ((a mod 2)=1) and ((a mod 5)=0) then
          writeln(a);
        a:=a+1;
      end;
  until (i<1);
  writeln('programma zavershena');
  readln();
end.