Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет:а) среднее арифметическое нечетных чиселб) сумму чисел, не превышающих 10в) сумму чисел, кратных 3На экран выводятся исходные значения и результаты вычислений.Только а, б и в нужно написать как отдельные задачи, а не как одна.Пожалуйста, помогите. Очень срочно, завтра сдавать!

A)
program a1;
uses crt;
var m:array[1..40]of integer;
i:byte;
a,ka:integer;
begin
clrscr;
a:=0;ka:=0;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 if m[i] mod 20 then
 begin
 ka:=ka+1;
 a:=a+m[i];
 end;
 end;
for i:=1 to 40 do if i=1 then write(M[,m[i],,)  else if i=40 then writeln(m[i],])  else write(m[i],,);
writeln(Среднее арифметическое нечетных чисел=,a/ka);
end.
b)
program b1;
uses crt;
var m:array[1..40]of integer;
i:byte;
b:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
 if m[i] end;
 end;
for i:=1 to 40 do if i=1 then write(M[,m[i],,)  else if i=40 then writeln(m[i],])  else write(m[i],,);
writeln(Сумма чисел не превышающих 10=,b);
end.
в)
program v1;
uses crt;
var m:array[1..40]of integer;
i:byte;
c:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
if m[i] mod 3=0 then c:=c+m[i];
 end;
 end;
 for i:=1 to 40 do
 if i=1 then write(M[,m[i],,)
 else
 if i=40 then writeln(m[i],])
 else
write(m[i],,);
writeln(Сумма чисел кратных 3 = ,c);
end.