Найти произведение 5 нечетных чисел в интервале от (10 до 20). ПОДРОБНО РАСПИСАТЬ

var k,i,m:integer; begin; k:=1; {наша переменная-результат, делаем так, чтобы нормально работало умножение} for i:=10 to 20 do //в цикле рассматриваем промежуток от 10 до 20 if i mod 2<>0 then //если число не делится на 2 нацело, нечётное begin; k:=k*i; //умножаем на это число m:=m+1; //переменная счётчик if m=5 then break;  {когда переменная счётчик достигла 5 (условие выполнено 5 раз) - выйти из цикла} end; writeln(k); end.