1. Составить программу, выводящую на экран элементы массива A[1… 16] в двастолбика:

var A: array [1… 16] of integer; i: integer; beginrandomize; for i: =1 to 16 do beginA[i]: =random (100); end; i: =1; repeatwrite (A[i]); write ("); writeln (A[i+1]); i: =i+2; until i < 17; end.