Составьте программу ,которая позволяет вводить с клавиатуры элементы массива a[1..10], а затем выводить на экран в первую строку первые пять элементов, а во- воторую -остальные пять
Program z; var a :array[1..10] of integer; i:integer; begin for i:=1 to 10 do read(a[i]); writeln(a[1],' ', a[2],' ', a[3],' ' ,a[4],' ' ,a[5]); writeln(a[6],' ',a[7],' ',a[8],' ',a[9],' ',a[10]); end.