Составить программу Паскаль: найти количество чётных и количество нечетных чисел из четырёх введенных чисел.

Предыдущий
вопрос Следующий
вопрос

program even_odd_numbers;

var
num1, num2, num3, num4: integer;
evenCount, oddCount: integer;

begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number: ');
readln(num2);
writeln('Enter the third number: ');
readln(num3);
writeln('Enter the fourth number: ');
readln(num4);

evenCount := 0;
oddCount := 0;

if num1 mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

if num2 mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

if num3 mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

if num4 mod 2 = 0 then
evenCount := evenCount + 1
else
oddCount := oddCount + 1;

writeln('Number of even numbers: ', evenCount);
writeln('Number of odd numbers: ', oddCount);

readln;
end.