Составьте программу, которая заполняет массив а[1… 20] случайными целыми числами в…

vara: array [1… 20] of integer; i: integer; beginrandomize; for i: =1 to 20 do begina[i]: =random (30)+1; write (a[i],'); end; writeln; for i: =1 to 20 doif (odd (a[i])=false) and (a[i] mod 3=0) then write (a[i],'); readln; end.