Решите пожалуйста задачу по паскалю

Program start; var x,y,z: integer; beginreadln (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.