Найдите 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 lt;gt; 0 then
            k := k * c;
    writeln(k);
end.

Ответ 15