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

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