Даны 5 натуральных чисел a1,a2,a3,a4,a5. Определить количество четных и количество нечетных чисел.
Pascal
javascript:var a = [], ч = 0, н = 0; for (let сч = 0; сч < 5; сч++) a.push(prompt()); a.forEach(function (зн) { if (зн % 2 == 0) ч++; else н++; }); alert(ч + ", " + н);
нужно на паскале
ну сделай пожалуйста