Напишите программу, которая в последовательности целых чисел определяет среднее арифметическое нечётных чисел. Программа получает на вход целые положительные числа. Количества введенных чисел не известно.

uses crt;

var i, sum, k: integer;

begin

sum:=0;

k:=0;

writeln ('Вводите числа. 0 - конец последовательности') ;

repeat

read (i) ;

if i mod 2=1 then begin

sum:=sum+i;

inc (k) ;

end;

until i=0;

writeln;

writeln ('Среднее арифметическое нечетных чисел: ', sum/k:5:3) ;

end.