Составьте программу. Для вводимых с клавиатуры чисел определить количество четных и сумму нечетных чисел. Ввод прекращается когда пользователь вводит цифру 0

Var A, c:longint;

S:real;

Begin

c:=-1;

S:=0;

Repeat

Read (A) ;

if A mod 2 = 0 then c:=c+1

else S:=S+A;

Until A = 0;

WriteLn ('Количество чётных: ', c) ;

WriteLn ('Сумма нечётных: ', S) ;

End.

Пример работы программы:

1 2 3 4 5 6 7 8 9 10 0

Количество чётных: 5

Сумма нечётных: 25