Составьте программу, которая заполняет массив а [1…

vara: array [1… 10] of integer; i: integer; beginrandomize; for i: =1 to 10 do begina[i]: =random (20)+1; write (a[i],'); end; writeln; for i: =1 to 10 doif (a[i]>5) and (a[i]<15) then write (a[i],'); readln; end.