Дано два одинаковые по длине одномерные массивы. Об’объединять их в третий массив, чередуя элементы первого и второго массивов.
Помогите,пожалуйста.ФРИ паскаль

А как можно переделать программу,что бы в ней были указатели

пожалуйста

Если еще актуально:program z;const n=3;var a,b:array[1..n] of real;c:array[1..(2*n)] of real;i,k:integer;beginfor i:=1 to n doreadln(a[i]);for i:=1 to n doreadln(b[i]);k:=1;for i:=1 to n dobeginc[k]:=a[i]; writeln(c[k]);k:=k+1;c[k]:=b[i];writeln(c[k]);k:=k+1;end;end.