СРОЧНО ПЖ!
2) Составить программу, которая находит произведение всех однозначных нечётных

На языке pascal ABC .NET:

var k:integer;

Begin

k:=1;

for var i:=1 to 9 do

if (i mod 2)=0 then else k:=k*i;

write(k);

end.