Решите пожалуйста задачу по паскалю. Даны три числа x, y, z найдите количество и произведение нечетных чисел принадлежащих отрезку c; d.

Program start; var x,y,z:integer; begin readln(x,y,z); If (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 3 | Произведение: ' , z*y*x) else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*x) else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , z*x) else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*z) else if (x mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , x) else if (y mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , y) else if (z mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , z) else writeln('Все числа нечетные!'); end.