Помогите решить задание 3!! СРОЧНО НАДО!

var a:array[1..10] of integer;i:integer;beginfor i:=1 to 10 doread(a[i]);for i:= 1 to 5 dowrite(a[i],' ');wrileln;for i:= 6 to 10 dowrite(a[i]);end.