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

var a: array [1… 12] of integer; i: integer; beginfor i: =1 to 12 doread (a[i]); for i: =1 to 12 doif (a[i]) >-40) and (a[i]) <10) thenbeginif (a[i]) >-10) and (a[i]) <5) thenwriteln (a[i]); endelse writeln ('число превышает промежутки'); end. Вроде так) проверь может сам что подправишь