СРОЧНО ! Напишите прогу на Паскале

program N53936322; {Название программы - любая ерунда}
const n=10; {Размер массива}
var i, {Параметр цикла}
s, {Сумма нечётных элементов}
k:integer; {Счётчик нечётных элементов}
a:array[1..n] of integer; {Описание массива}
begin
randomize; {Инициализация генератора случайных чисел}
writeln('Массив: ');
s:=0; {Обнуление суммы нечётных элементов}
k:=0; {Обнуление счётчика нечётных элементов}
{Формирование массива и его основная обработка}
for i:=1 to n do {Цикл по элементам массива}
begin
a[ i ]:=random(16)-5; {Генерирование целого элемента в диапазоне [ -5 .. 10]}
write(a[ i ]:4); {Вывод на экран текущего элемента}
if odd(a[ i ]) then {Если текущий элемент нечётный, то}
begin
inc(k); {увеличение счётчика на 1}
s:=s+a[ i ]; {и сложение предыдущего значения суммы с текущим элементом}
end;
end;
writeln; {Перевод строки}
{Вывод результатов обработки массива}
writeln('Нечётных элементов: ',k);
writeln('Сумма нечётных элементов: ',s);
{Вывод среднего арифметического нечётных элементов с точностью до 5 знаков после запятой. Выражение k+ord(k=0) позволяет избежать деления на ноль, если нечётных элементов нет. }
writeln('Среднее арифметическое нечётных элементов: ',s/(k+ord(k=0)):0:5);
readln; {Ожидание нажатия enter}
end. {happy end}

Конец программы можно оформить по-другому:
if k > 0 then
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:5)
else
writeln('Нечётных элементов нет');
readln; {Ожидание нажатия enter}
end. {happy end}

Я то тебе ответил бы, если бы мог писать английскими буквами здесь.. . ) Лови письмо