в двух файлах записано по 10 чисел, создать третий файл, в котором чередуются числа первых двух файла. Написать в программе PascalABC

program f1_f2_f3;

var

f1, f2, f3: text;

a, b: array [1 ... 10] of integer;

begin

AssignFile (f1, 'e:/pascal/n1. txt'); / /указать реальные полные имена файлов

AssignFile (f2, 'e:/pascal/n2. txt');

AssignFile (f3, 'e:/pascal/n3. txt');

Reset (f1);

for k: integer: = 1 to 10 do Read (f1, a[k]);

CloseFile (f1);

Reset (f2);

for k:integer:=1 to 10 do Read (f2, b[k]);

CloseFile (f2);

rewrite (f3);

for k: integer: = 1 to 10 do

if k = 1 then write (f3, a[k], ' ', b[k]) else write (f3, ' ', a[k], ' ', b[k]);

close (f3)

end.