Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: 1) среднее арифметическое нечетных чисел 2)сумму чисел, не превышающих 10 3) сумму чисел,кратных 3 На экран выводятся исходные значения и результаты вычислений

Const
  n=40;
var
  i,s1,s2,k:integer;
  s:real;
  a:array[1..n] of integer;
begin
  Randomize;
  Write(Сгенерированный массив: );
  s:=0; s1:=0; s2:=0; k:=0;
  for i:=1 to n do begin
    a[i]:=Random(21);
    Write(a[i], );
    if a[i] mod 20 then begin s:=s+a[i]; Inc(k) end;
    if a[i]    if a[i] mod 3=0 then s2:=s2+a[i]
    end;
  Writeln;
  Writeln(Ср.арифм.нечетных = ,s/k);
  Writeln(Сумма не больших 10 = ,s1);
  Writeln(Сумма кратных 3 = ,s2)
end.

Пример выполнения программы
Сгенерированный массив: 14 19 1 5 0 2 1 3 2 15 5 3 18 0 4 12 5 0 9 2 14 7 18 13 0 16 9 15 19 14 13 13 16 16 1 16 14 2 1 1
Ср.арифм.нечетных = 7.9
Сумма не больших 10 = 63
Сумма кратных 3 = 102