Дан массив из 16 целых чисел…

Program Pr1; uses crt; var mas: array[1… 16] of integer; max: array[1… 8] of integer; i,b,c: integer; Beginclrscr; randomize; b: =0; for i: =1 to 16 do mas[i]: =random (71); for i: =1 to 16 do write (mas[i]); for i: =1 to 16 div 2 do begin max[i]: =mas[i]*mas[16-b]; b: =b+1; end; writeln (); for i: =1 to 8 do write (max[i]); end.