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

Var A,c:longint;    S:real;Beginc:=-1;S:=0;RepeatRead(A);if A mod 2 = 0 then c:=c+1else S:=S+A;Until A = 0;WriteLn('Количество чётных: ',c);WriteLn('Сумма нечётных: ',S);End.Пример работы программы:1 2 3 4 5 6 7 8 9 10 0Количество чётных: 5Сумма нечётных: 25