Составьте программу, которая формирует массив из 12 случайных чисел на промежутке…

Program Program1; Vari: integer; a: array [1… 12] of integer; beginrandomize; for i: =1 to 12 doa[i]: =random (51) -40; writeln; writeln ('Элементы больше -10: '); for i: =1 to 12 doif a[i]>-10 then write ('a[',i,']=',a[i],', '); writeln; writeln ('Элементы меньше 5: '); for i: =1 to 12 doif a[i]<5 then write ('a[',i,']=',a[i],', '); end.