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

uses crtconstN=20;typeARR = array [0..N] of Integer;vari,res,k: Integer;a,b: ARR;beginclrscr;randomize;for i:=1 to N do a:=random(40);WriteLn(\'Дан целочисленный массив: \');Write(\'a[\');for i:=1 to N do Write(a,\' \');WriteLn(\']\');Write(\'(Для продолжения нажмите Enter)\');ReadLn;WriteLn(\'Находим среднее арифметическое нечетных чисел. \');res:=0;k:=0;WriteLn(\'Находим все нечетные числа: \');for i:=1 to N dobeginif odd(a) thenbeginWrite(a,\' \');res:=res+a;inc(k);end;end;WriteLn;WriteLn(\'Среднее арифметическое: \', (res/k):4:2);Write(\'(Для продолжения нажмите Enter)\');ReadLn;Write(\'Находим числа, не превышающие 10: \');res:=0;for i:=1 to N dobeginif a<=10 thenbeginWrite(a,\' \');res:=res+a;end;end;if res=0 then Write (\'Таких чисел нет : ( \')elsebeginWriteLn;Write(\'Сумма чисел: \', res);end;