Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20…

Program Task; Var a: Array [1… 40] of Integer; b: Real; c, d, e, i: Integer; BeginRandomize; For i: =1 To 40 Doa[i]: =Random (20+1); WriteLn ('Массив: '); For i: =1 To 40 DoWrite (a[i], '); WriteLn; For i: =1 To 40 DoBeginIf a[i] Mod 2=1 ThenBeginb: =b+a[i]; c: =c+1; End; If a[i] <= 10 Thend: =d+a[i]; If a[i] Mod 3=0 Thene: =e+a[i]; End; WriteLn ('Среднее арифметическое нечетных чисел: ', (b / c): 2:2); WriteLn ('Сумма чисел, не превышающих 10: ', d); WriteLn ('Сумма чисел кратных 3: ', e); ReadLn; End.