Составить программу, которая находит произведение всех однозначных нечётных.

Program primer; var,      n,i,max,z: integer; begin        max: =0;         for i: =1 to 10 do begin              read(n);               if(n mod 10 = 4) then begin                    inc(z);                     if(max< n) then max: =n;               end;         end;         if(z> 0) then writeln(max)              else writeln('no'); end.

Program primer; var        n,i,max,z: integer; begin        max: =0;         for i: =1 to 10 do begin            read(n);             if(n mod 10 = 4) then begin                    inc(z);                     if(max< n) then max: =n;             end;         end;         if(z> 0) then writeln(max)            else writeln('no'); end.