Найдите k
k:=1
for c:=1 to 5 do
if c mod 2 <>0 then k:=k*c;

var    k, c: integer;begin    k := 1;    for c := 1 to 5 do        if c mod 2 <> 0 then             k := k * c;    writeln(k);end.Ответ 15