Найдите 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