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.