Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале.

Var
sum, count, r, i: integer;
begin

repeat
write ('Введите число: ');
readln (r);
inc (sum, r);
inc (i);
if (r mod 2)<>0 then inc (count);
until r=0;

writeln ('');
writeln ('Сумма элементов: ', sum);
writeln ('СА: ', sum/i);
writeln ('Нечетных элементов: ', count);
writeln ('Четных элементов: ', i-count);
end.